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PREFACE 


The  growing  concern  over  the  possible  impacts  of  oil  spills  on  aquatic 
environments  has  led  to  the  development  of  a  large  number  of  computer  models 
for  simulating  the  transport  and  spreading  of  oil  slicks  in  surface  water 
bodies.  Almost  all  of  these  models  were  developed  for  coastal  environments. 
With  the  increase  in  inland  navigation  activities,  oil  slick  simulation  models 
for  rivers  and  lakes  <*re  needed. 

In  this  study,  two  computer  models  named  as  ROSS  and  LROSS  are  developed 
for  simulating  oil  slick  transport  in  rivers  and  lakes,  respectively.  The 
study  was  originated  by  the  Detroit  District,  U.S.  Army  Corps  of  Engineers  in 
relation  to  the  Great  Lakes  limited  navigation  season  extension  study.  The 
oil  slick  transformation  processes  considered  in  these  models  include 
advection,  spreading,  evaporation  and  dissolution.  These  models  can  be  used 
for  slicks  of  any  shape  originated  from  instantaneous  or  continuous  spills  in 
rivers  and  lakes  with  or  without  ice  covers.  Although  developed  for  the  need 
of  the  connecting  channels  in  the  upper  Great  Lakes,  including  the  Detroit 
River,  Lake  St.  Clair,  St.  Clai  P'-.er,  and  St.  Mary's  River,  these  models  are 
site  independent  and  can  be  used  :  ither  rivers  and  lakes. 

The  programs  are  written  in  FORTRAN  programming  language  to  be  compatible 
with  FORTRAN77  compiler.  In  addition,  a  user-friendly,  menu  driven  program 
with  graphics  capability  is  developed  for  the  IBM-PC  AT  computer,  so  that 
these  models  can  be  easily  used  to  assist  the  oil  spill  cleanup  action  in  the 
connecting  channels  should  a  spill  occur. 

This  report  series  is  organized  in  four  volumes,  to  provide  a  complete 
description  of  the  analytical  formulation  of  the  models,  the  logic  and 
structures  of  the  computer  programs,  and  the  instructions  for  using  the 
models.  The  title  of  these  volume  are: 
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Volume  I:  Theory  and  Model  Formulation 

Volume  II:  User's  Manual  for  the  River  Oil  Spill  Simulation 

Model  (ROSS) 

Volume  III:  User's  Manual  for  the  Lake-River  Oil  Spill 

Simulation  Model  (LROSS) 

Volume  IV:  User's  Manual  for  the  Microcomputer-Based 

Interactive  Program 
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CHAPTER  I 


INTRODUCTION 

In  this  volume  the  computer  model  LROSS  for  lake-river  oil  spill 
simulation  is  presented  along  with  instructions  for  using  the  computer  model. 
The  model  simAates  the  transport  of  oil  slick  in  a  lake  and  traces  this 
transport  process  as  the  slick  moves  into  and  along  a  river.  This  model  is  an 
extension  of  the  model  ROSS  presented  in  Volume  II.  The  analytical 
formulation  of  the  computer  model  is  presented  in  Volume  I.  Formulations  on 
the  oil  slick  transformation  and  river  current  distribution  is  the  same  as 
those  developed  in  the  model  ROSS.  The  lake  current  distribution  is  computed 
using  the  rigid-lid  lake  circulation  model  (Schwab,  et  al.,  1981  and  1984; 
Bennet,  et  al.,  1983).  The  flow  chart  presented  in  Fig.  1  outlines  the 
structure  of  the  model.  Discussions  on  some  of  the  computer  logic  and 

techniques  which  were  not  discussed  in  Volumes  I  and  II  will  be  given  in  the 
following  sections.  Detailed  presentations  of  the  computer  model,  input  data 
files  and  model  output  are  given  in  later  chapters. 

I. 1  Initial  Input 

Grid  Control  Data  and  River  Geometry 

The  variables  which  govern  the  size  and  number  of  lake  and  river  grids 

are  first  read  into  the  program.  Those  dealing  primarily  with  the  lake  are 

used  to  determine  whether  a  point  is  located  in  either  the  lake  or  the  river. 
This  is  extremely  important  since  the  correct  grid  size  must  be  used  when 
performing  specific  calculations.  Again,  it  is  emphasized  that  the 
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Figure  1.  Block  diagram  of  computer  simulation  model 


2 


) 

re  1 


.  Block  diagram  of  computer  simulation  model 


3 


DO  for  each  time  step  in 
oil  spill  simulation. 


Read  wind  speed  and  direction, 


Call  PRELSE  if  continuous 
spill  and  release  particles 
if  all  particles  not  yet 
released. 


Call  ADVECT  if  not  first 
release  of  continuous  spill 
and  advect  particles. 


Call  ORIENT  to  determine  if 
spill  treated  as  axisymmetrical 
or  one  dimensional. 


Call  SPRDAX  if  spreading 
particles  with  axisymmetrical 
equations . 


Call  SPRDlD  if  spreading  particles 
with  one  dimensional  equations. 


Call  EVAPOR, DISOLU  to  compute 
lossese  due1 to  evaporation 
and  dissolution. 


Figure  1.  Block  diagram  of  computer  simulation  model 
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information  describing  the  lake  and  river  grid  schemes  is  found  in  Chapter  II 
(with  variable  definitions  in  Chapter  III) . 

Next,  the  data  describing  the  river  geometry  is  read.  This  information 
includes:  1)  branch  start  and  end  cross  sections,  2)  cross  section  locations, 
orientation  and  connection  sequence,  3)  points  describing  cross  section 
geometry,  and  A)  boundary  grid  boxes  for  river  and  lake  shorelines. 

The  detailed  procedure  for  creating  and  organizing  the  river  data  can  be 
found  in  Volume  II.  It  is  important  to  realize  that  the  river  is  organized 
into  a  series  of  branches.  Each  branch  covers  a  specified  stretch  of  the 
river  and  contains  a  number  of  cross  sections  depending  upon  available  field 
data  and  accuracy  requirements  of  this  computer  model. 

Spill  Data  and  Spill  Type 

The  information  which  describes  the  actual  spill  is  now  provided.  This 
data  controls  the  size  of  the  spill,  the  number  of  particles  used  to  represent 
the  spill,  and  the  time  scales  for  both  the  duration  of  oil  spill  simulation 
and  spill  duration.  Also,  the  coefficients  and  constants  used  in  the 
spreading,  evaporation  and  dissolution  phases  are  read.  All  of  this  data  is 
user  dependent.  This  implies  that  the  user  has  the  option  of  locating  a 
hypothetical  or  real  spill  anywhere  in  the  lake  or  river  system  with  the 
desired  physical  properties.  The  spill  simulation  time  step  and  spill 
duration  are  used  to  establish  the  spill  type.  If  the  spill  duration  is 
greater  than  half  of  the  simulation  time  step,  the  spill  will  be  considered 
continuous.  Otherwise,  the  spill  will  be  considered  as  an  instantaneous 
spill.  Details  for  releasing  particles  as  a  continuous  spill  will  be 
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discussed  shortly. 


1.2  River  and  Lake  Computations 

Updating  Floe  Conditions 

The  computer  model  has  the  capability  to  re-compute  the  depth-averaged 
surface  velocities  in  both  the  lake  and  river  at  a  specified  time  interval. 
The  interval  is  the  time  step  used  in  the  river  unsteady  flow  model.  Its 
magnitude  is  dependent  upon  the  need  for  updated  flow  conditions  over  the 
course  of  the  spill  simulation.  For  example,  the  flow  conditions  may  be 

updated  every  3  hours  in  a  total  simulation  of  24  hours.  At  the  time 

interval,  stage  and  discharge  conditions  for  all  nodes  in  the  unsteady  river 
model  (Thomas,  1984)  are  read.  Subroutine  NDCONV  converts  this  information 
into  the  stage  and  discharge  boundary  conditions  for  each  branch  of  the 

river.  The  lake  circulation  model  requires  the  stage  and  discharge  at  the 

beginning  of  the  first  river  branch  (the  lake-river  interface)  as  boundary 
conditions  for  computing  the  correct  stream  function  values. 

Lake  Circulation 


Subroutine  RLID  is  next  called  to  calculate  the  stream  function  values, 
ip,  at  the  grid  corners  of  the  lake  grids.  The  lake  depths,  initial  stream 
function  values,  and  meteorological  data  (wind  speed,  direction  and  location 
of  meteorological  station)  are  required  input  into  this  routine.  The  depths 
are  given  for  all  grids  comprising  the  lake  and  are  read  in  through  subroutine 
RGRID  along  with  various  additional  parameters  (Chapter  III).  Initial  stream 
function  values  are  read  using  subroutine  INIT  for  these  same  grids  in 
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addition  to  the  grids  needed  to  maintain  the  "no-flow"  into  the  shoreline 
boundary  condition  (Chapter  IV).  Finally,  the  wind  data  must  be  supplied  at 
the  unsteady  flow  model  time  interval. 

Ice  Data 

Data  describing  the  location  and  extent  of  ice  in  both  the  river  and  lake 
is  read  in  next.  In  the  river,  the  cross  section  ice  information  is  used  to 
calculate  the  ice  cover  effects  when  computing  the  sticairtube  velocities  by 
increasing  the  hydraulic  radius.  In  the  lake,  the  ice  region  data  serves  as 
an  index  for  handling  the  shear  stress  term  in  the  governing  equations.  For 
both  the  river  and  the  lake,  this  information  describes  the  regions  where  ice 
is  encountered  in  order  that  the  proper  spreading  and  advection  equations  may 
be  applied. 

Ice  Stress  and  Wind  Stress 

If  an  ice  cover  is  present,  there  will  be  no  wind  stress.  However,  an 
additional  shear  stress  is  present  due  to  friction  on  the  underside  of  the 
cover.  To  index  the  presenc  of  an  ice  cover,  two  arrays  are  initialized  in 
RLID  for  each  grid  box  in  the  lake.  One  array  ZWND  (I,J),  is  set  to  either 
one  or  zero  depending  upon  whether  the  ice  cover  is  or  is  not  present.  The 
other  array,  FR(I,J),  represents  the  drag  coefficient  in  the  quadratic  drag 
law.  Without  an  ice  cover,  the  drag  coefficient  equals  the  bed  drag 
coefficient  only.  With  an  ice  cover,  the  ice  drag  coefficiewnt  is  added  to 
the  bed  drag  coefficient. 
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Lake  Boundary  and  Initial  Conditions 

The  stream  function  values  and  depths  are  initially  set  in  the  model  for 
a  reference  discharge  with  the  condition  that  inflow  equals  outflow.  If  the 
initial  stage  and  discharge  read  from  the  river  unsteady  flow  model  is 
different  from  these  reference  values,  the  stream  functions  and  depths  must  be 
changed  to  reflect  the  change.  The  depths  merely  require  the  increase  or 
decrease  in  size  depending  upon  whether  the  new  stage  is  higher  or  lower. 
However,  even  after  a  quick  adjustment  to  the  stream  function  values,  the 
circulation  model  is  run  for  a  minimum  of  twenty,  one-hour  time  steps  to 

J 

obtain  the  quasi-steady  state  stream  function  distribution  at  the  initial  flow 
condition. 

These  quasi-steady  state  stream  function  values  are  saved  for  later 
computation  of  lake  velocities  for  the  initial  period.  The  stream  function 
output  is  controlled  by  subroutine  OUTP.  When  the  boundary  conditions  for  the 
river  branches  are  again  updated  by  the  river  unsteady  flow  model  time 
interval,  the  stream  function  values  must  be  updated  as  well  according  to  the 
new  boundary  condition  at  the  lake-river  interface.  However,  a  smaller  number 
of  one-hour  time  steps  in  the  update  interval  (3  to  6  hours)  is  needed  instead 
of  20  hours. 

Figure  2  gives  a  clearer  interpretation  of  the  method  of  1)  reading 
initial  stream  function  values,  2)  running  the  lake  circulation  model  for 
twenty,  one-hour  time  steps,  3)  using  the  last  set  of  stream  functions, 
calculate  the  lake  velocities  and  use  them  from  initial  spill  time  up  to  the 
first  update  of  flow  conditions,  4)  re-reading  boundary  conditions  at  the 
update  interval,  and  5)  re-computing  stream  functions  and  velocities  to  be 
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Figure  2 


Time  line  for  computing  and  re-computing  stream 
function  and  lake  velocity  distributions 
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used  up  to  the  next  update  of  flow  conditions. 


Lake  Velocities 


Once  the  stream  function  values  are  known  for  each  grid  box,  the  grid  box 
velocity  is  computed  in  subroutine  PARTIC.  It  is  necessary  to  reread  the 
bathymetric  data  to  update  the  depth  array  before  use  in  PARTIC.  Subroutine 
UPDATE  reads  the  current  stream  function  values  prior  to  calculation  of  lake 
velocities.  Depth-averaged  velocities  are  calculated  for  every  grid 
containing  a  stream  function  value.  The  model  first  computes  the  transports  M 
and  N  between  adjacent  values  of  stream  functions  as  shown  in  Figure  3.  Then, 
the  velocity  components  are  computed  at  the  transport  points  and  shifted  back 
to  the  defined  stream  function  point  for  that  grid.  Finally,  a  four  point 
average  is  taken  using  velocities  at  all  corners  of  the  grid  and  assigned  to 
the  grid  Center. 

River  Velocities 


The  depth-averaged  velocities  for  the  river  are  calculated  in  subroutine 
VELDIS.  Using  the  streamtube  approach,  velocities  are  calculated  and  assigned 
coordinates  corresponding  to  the  center  of  each  streamtube.  A  velocity  is 
then  assigned  to  the  grid  box  in  which  the  coordinates  lie.  This  procedure  is 
carried  out  from  one  branch  to  the  next  for  each  cross  section  in  a  branch.  A 
predetermined  number  of  interpolated  velocities  are  next  calculated  at 
equidistant  points  between  consecutive  cross  sections  in  the  same  streamtube. 
These  velocities  are  assigned  to  the  grid  boxes  in  which  they  lie.  Once  the 
interpolations  have  been  completed  for  all  stre?’"."v*'»5  between  all  cross 
sections,  the  river  is  scanned  for  grid  boxes  requiring  a  velocity.  Starting 
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from  the  beginning  of  the  river,  velocities  in  the  adjoining  grid  boxes  above, 
below,  and  on  either  side  of  a  grid  without  velocities,  are  averaged  and 
assigned  to  that  grid. 


1.3  Slick  Transformation 

Hind  Component  of  Drift  Velocity 

The  wind  component  of  the  drift  velocity  is  considered  to  have  the  same 
magnitude  and  direction  over  the  entire  lake-river  region.  However,  the  wind 
data  is  input  for  every  time  step  in  the  spill  simulation  thus  providing  more 
flexibility  in  its  use.  By  inputting  the  predicted  or  expected  wind 
conditions  along  the  path  of  the  slick,  the  wind  information  is  used  only  in 
the  area  in  which  it  pertains  despite  its  overall  constancy. 

Continuous  Spills 

If  the  spill  is  determined  to  be  continuous,  subroutine  PRELSE  is  called 
to  control  the  release  of  oil  particles.  The  logic  in  PRELSE  used  to  model  a 
continuous  spill  considers  the  total  spill  as  a  series  of  particle  releases. 
In  this  way,  the  oil  can  be  released  in  the  model  continuously  but  the  volume 
of  oil  released  up  to  a  point  in  time  can  be  spread  as  if  it  were  an 
instantaneous  spill.  The  number  of  releases  is  equal  to  the  spill  duration 
divided  by  the  simulation  time  step.  The  release  of  particles  is  done 
uniformly  in  time  over  the  spill  simulation  time  step. 

The  actual  sequence  used  is  as  follows.  At  the  first  time  step  of  the 
oil  spill  simulation,  a  group  of  particles  are  released  uniformly  in  time. 


advected  (in  PRELSE)  and  then  spread  according  to  the  total  volume  they 
represent.  When  the  subsequent  calculations  are  completed  for  that  time  step, 
another  group  of  particles  is  released  and  advected  (in  PRELSE)  for  the  next 
time  step.  The  particles  which  were  released  prior  to  this  time  must  be 
advected  as  well.  This  is  done  using  another  subroutine  (ADVECT)  which  will 
eventually  be  the  sole  means  of  advecting  the  particles  once  the  entire 
continuous  spill  has  been  released.  Furthermore,  when  the  spreading  is 
computed,  the  entire  spilled  volume  up  to  that  time  is  used,  not  just  the 
volume  of  the  particles  released  last. 

Advection 


Open  Water 

The  source  of  the  advective  wind  velocity*  has  already  been  described. 
The  appropriate  water  velocity  to  use  depends  in  which  grid  a  particle  is 
currently  located.  All  points  in  a  grid  are  considered  to  experience  the 
velocity  assigned  to  that  grid  so  if  a  particle  is  situated  anywhere  inside  of 
a  grid,  that  grids'  velocity  is  used  when  computing  the  overall  drift  velocity 
for  the  particle. 

Ice  Covered  Region 

If  a  particle  is  in  an  ice  covered  region,  the  first  condition  for 
advection  under  ice  to  occur,  is  that  the  threshold  velocity  be  exceeded. 
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Spreading  in  Open  Water 

Axisymmetrical  Spreading 

If  the  criteria  for  using  axisymmetrical  spreading  are  met,  subroutine 
SPRDAX  will  perform  the  necessary  computations  for  this  type  of  spreading. 
Use  of  the  axisymmetrical  equations  is  accomplished  by  first  dividing  the 
slick  into  eight  segments  each  encompassing  tt/4  radians.  This  allows  for  the 
probable  distortion  in  the  slick  from  a  truly  circular  slick.  Each  pie 
segment  will  contain  a  number  of  particles  depending  upon  the  location  of  the 
particles  in  the  slick.  The  particles  in  each  segment  will  be  spread  radially 
according  to  a  computer  spreading  rate.  Since  the  spreading  equations  are 
based  upon  a  circular  slick,  the  volume  used  to  compute  the  spreading  rate 
equals  eight  times  the  volume  of  oil  in  the  segment.  In  this  way,  the  correct 
magnitude  of  the  spreading  rate  is  computed. 

The  spreading  rates  computed  are  considered  directly  applicable  to 
particles  at  the  mean  radius  of  the  segment.  The  magnitude  of  the  spreading 
rate  for  other  particles  is  weighted  according  to  the  ratio  of  the  particles 
position  relative  to  the  slick  centroid  and  the  distance  to  the  mean  segment 
radius. 

One  Dimensional  Spreading 


If  the  criteria  for  using  one  dimensional  spreading  are  met,  subroutine 
SPRD1D  will  perform  the  necessary  computations  for  this  type  of  spreading. 
The  technique  used  to  model  the  one  dimensional  case  is  similar  to  the 
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axisymmetrical  case  except  that  the  slick  is  broken  up  into  strips  instead  of 
circular  segments.  These  strips  lie  perpendicular  to  the  major  axis  of  the 
slick.  The  major  axis  is  found  by  using  the  moments  of  inertia.  Each  strip 
is  one  grid  box  long  in  the  direction  of  the  major  axis  and  as  many  grid  boxes 
wide  in  the  direction  of  the  minor  axis  to  accommodate  the  particles  in  the 
strip. 

Spreading  rates  are  computed  independently  on  each  side  of  the  strip 
centroid.  Since  the  one  dimensional  equations  apply  to  a  symmetrically  shaped 
strip,  the  volume  used  to  calculate  one  sides  spreading  rate  equals  twice  the 
volume  actually  present.  In  this  way,  the  correct  magnitude  of  the  spreading 
rate  is  computed  and  deviations,  in  the  slick  shape  from  a  symmetric  shape 
along  the  entire  slick  centroid,  can  be  accounted  for.  Again,  the  spreading 
rate  is  applicable  to  particles  at  the  mean  strip  width  on  one  side  of  the 
slick.  The  spreading  rate  for  the  remainder  of  the  particles  is  weighted 
according  to  the  ratio  of  the  distance  of  the  particle  from  the  strip  centroid 
and  the  mean  (upper  or  lower  side)  strip  width. 

Spreading  Onder  Ice  Cover 

When  an  ice  region  is  encountered,  the  choice  of  using  open  water 
spreading  or  spreading  under  an  ice  cover  first  depends  upon  whether  or  not 
the  oil  is  still  leaking  from  its  source.  No  spreading  under  the  ice  cover 
will  occur  for  an  instantaneous  spill  or  once  the  continuous  leak  stops.  If 
the  leak  is  in  progress  and  conforms  to  an  axisymmetrical  shape,  the  segments 
under  ice  will  spread. 
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Weathering  Effects 

Oil  losses  due  to  evaporation  and  dissolution  are  computed  in  subroutine 
EVAPOR  and  DISOLU  respectively.  Once  the  evaporative  loss  has  been  computed, 
the  representative  oil  volume  of  each  particle  is  reduced.  The  amount  of  oil 
losses  due  to  dissolution  are  small  compared  to  those  from  evaporation  and 
this  loss  neither  significantly  changes  the  oil  volume  nor  significantly 
changes  the  computed  spreading  rates.  However,  the  amount  of  dissolved  oil  is 
calculated  and  accumlated  for  use  in  assessing  the  impact  of  the  oil  on  the 
marine  environment . 

1.4  Shoreline  Conditions 


During  the  advection  and  spreading  phases,  oil  particles  can  be  moved 
beyond  the  boundary  grids  describing  the  river  and  island  shorelines. 
Therefore,  after  completion  of  either  phase,  a  check  is  made  to  determine  if  a 
particle  has  been  moved  onto  a  land  grid.  Arrays  are  used  to  keep  track  of 
land  trapped  particles  so  that  upon  entry  into  subroutine  BOUNDR,  the  reaction 
of  the  oil  with  the  shoreline  can  be  assessed. 

The  logic  behind  BOUNDR  is  rather  straightforward.  Referring  to  Fig.  4, 
if  a  land  trapped  particle  is  found  below  shore  1  or  above  shore  2,  it  is 
moved  to  the  first  land  grid  on  the  appropriate  side  of  the  river.  If  the 
land  trapped  particle  does  not  meet  the  above  condition,  it  must  be  on  an 
island.  In  that  case  it  will  be  moved  to  the  closest  island  boundary  grid. 
Once  all  particles  are  moved  to  the  river  and/or  island  boundary,  the 
rejection  rate  is  used  to  re-entrain  excess  particles  into  the  river.  All 
rejected  particles  are  assigned  to  the  centroid  of  the  closest  water  grid. 
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'SHORE  I 


Islands 


Although  not  given  special  attention  up  to  this  point,  the  overall  model 
does  have  the  capability  to  deal  with  islands  as  follows: 

1.  Island  grids  in  the  lake  are  treated  as  shallow  water  since  RLID  does 
not  have  the  capability  to  handle  the  proper  boundary  contraints. 

2.  The  streamtube  method  employed  in  the  river  can  handle  the  main 
channel  division  around  one  island  when  computing  the  river 
velocities.  Additional  islands  which  would  cause  the  main  channel  to 
further  divide  into  sub-channels  will  be  treated  as  shallow  water  and 
later  have  their  corresponding  grid  box  velocities  set  to  zero. 

3.  The  method  used  in  BOUNDR  to  move  particles  into  land  boundary  grids 
is  limited  to  four  shorelines.  This  means  that  when  there  are  several 
islands  in  the  same  river  cross  section,  only  one  island  can  be 
correctly  modeled.  There  is  no  limitation  if  islands  are  in  series 
with  regards  to  the  x  axis.  So,  when  assigning  boundary  grids,  the 
most  significant  island  should  be  selected  for  shores  three  and  four. 

4.  Using  oil  particles  is  convenient  since  the  slick  can  easily  divide 
when  proceeding  around  an  island.  However,  the  model  will  only  spread 
one  slick  at  a  time.  Therefore,  if  the  slick  does  separate  into  two 
patches  around  an  island,  prior  to  termination  of  spreading,  oil 
particles  will  be  shifted  to  one  side  of  the  island  where  the 
appropriate  spreading  techniques  can  be  used.  Afterwards,  the  oil 
particles  are  shifted  back  again. 
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CHAPTER  II 


THE  GRID  SYSTEM 


Since  the  model  tracks  the  movement  of  oil  on  the  water  surface*  it  is 
necessary  to  have  the  capability  for  quick  identification  of  the  slick 
position.  Both  river  and  lake  have  their  corresponding  surfaces  limited  by 
finite  boundaries.  The  computer  must  be  able  to  recognize  these  limits  for 
purposes  of  determining  where  to  assign  current  velocities,  where  the  oil  will 
move,  and  when  it  will  hit  the  shoreline. 

A  systematic  technique  was  developed  to  reference  any  location  on  the  two 
dimensional  surfaces  of  either  the  lake  or  river.  This  technique  requires 
that  a  fixed  grid  network  be  superimposed  over  both  water  bodies.  The  grids 
in  the  lake  and  river  serve  both  similar  and  dissimilar  functions.  The 
similarity  is  velocities  will  be  assigned  to  the  grid  centers  for  use  in 
computing  the  advection  of  the  slick  and  indexing  the  grid  boxes  controls 
where  oil  will  hit  the  boundaries.  The  dissimilarity  is  due  to  separate 
computations  and  model  structure  of  the  lake  circulation  model  when  compared 
to  the  calculation  of  river  currents. 

II. 1  The  Coordinate  System 

The  grid  network  is  laid  out  according  to  a  Cartesian  system.  The 
placement  of  the  grids  follows  the  x  and  y  axis  of  the  Cartesian  plane.  As 
shown  in  Fig.  5,  for  the  Lake  St.  Clair-Detroit  River  System,  these  axes  are 
originated  from  a  pre-selected  plane  where  the  lake  and  river  connect.  The 
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Lake  St.  Clair  and  Detroit  River 


Figure  5  Location  of  axes  in  lake-river  system 


lake  will  be  to  the  left  of  the  y  axis  and  the  river  will  he  to  the  right.  If 
any  shoreline  is  visualized  as  a  string  of  x,y  coordinates,  the  scheme  used 
here  will  make  all  x  coordinates  for  the  lake  negative  and  all  x  coordinates 
for  the  river  positive.  In  either  case,  the  y  coordinates  are  always  kept 
positive  since  the  computer  logic  dictates  the  x  axis  as  the  lower  reference 
line.  The  river  is  used  to  set  the  orientation  of  the  Cartesian  plane.  The  x 
axis  follows  the  major  orientation  along  the  length  of  the  river.  The 
relative  position  of  the  x  axis  along  the  y  axis  is  established  by  leaving  one 
row  of  grid  boxes  above  the  x  axis  before  reaching  the  lake  as  shown  in  Fig. 
6. 


An  important  distinction  must  be  emphasized  between  the  lake  and  the 
river,  since  the  lake  circulation  is  computed  separately  from  the  river 
currents.  The  lake  circulation  model  actually  requires  at  least  one  layer  of 
grid  boxes  all  the  way  around  the  lake  which  are  not  in  any  way  part  of  the 
lake  shoreline.  These  boxes  must  border  on  the  x  axis  at  the  bottom  row  and 
extend  one  column  beyond  the  y  axis  at  the  far  right  side  as  indicated  in  Fig. 
6.  The  result  is  an  overlap  in  river  versus  lake  grid  boxes  at  the  lake-river 
interface.  This  will  not  cause  any  confusion  in  the  model  because  the  extra 
column  of  boxes  past  the  y  axis  is  only  used  for  computational  purposes  in  the 
lake  circulation  model.  They  will  not  have  assigned  velocities  or  serve  as 
any  part  of  the  lake  during  the  oil  spill  simulation. 

II. 2  Grid  Sizes 


The  grids  must  be  square  and  for  purposes  of  maintaining  flexibility,  the 
size  of  the  lake  grid  must  be  exactly  divisible  (to  a  whole  number)  by  the 
size  of  the  river  grid.  The  implication  here  is  that  a  lake  grid  and  a  river 
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Figure  6  Lake  grid  boxes  relative  to  x  and  y  axes 
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grid  can  be  different  in  sizes  as  long  as  the  lake  grid  is  equal  or  larger  in 
dimension  than  the  river  grid.  The  qualification  of  grid  sizes  is  needed  due 
to  the  logic  used  for  determining  whether  a  grid  is  located  in  the  lake  or  the 
river  and  due  to  the  fact  that  the  lake  grids  are  typically  larger  due  to  the 

| 

greater  surface  area  covered. 

11. 3  Grid  Indices 

Generally,  both  the  lake  and  the  river  are  described  by  grids  in  the  same 
manner.  Once  the  shoreline  configuration  for  each  water  body  is  established 
and  the  grid  is  superimposed  over  them,  simple  counting  is  all  that  is 
required  to  identify  any  particular  grid.  Counting  the  x  grids  starts  from 
one  column  to  the  left  of  the  lake  and  continues  until  the  end  of  the  rive-*-  is 
reached.  All  y  grids  are  counted  upwards  from  the  x  axis  regardless  of 
whether  they  fall  in  the  river  or  lake.  The  grid  index  figures  used  in  the 
Lake  St.  Clair-Detroit  River  area  are  supplied  in  Figures  7  through  14  ,  for 
references.  Figure  7  defines  the  grid  system  for  the  lake.  Figure  8  is  the 
index  to  Figures  9  through  14,  which  in  turn  defines  the  grid  system  for  the 
river.  These  figures  shall  be  used  when  attempting  to  locate  the  site  of  the 
oil  slick  as  well  as  locations  of  oil  contaminated  from  the  output. 

11. 4  Shoreline  Boundaries 

The  shorelines  are  schematized  according  to  grid  boxes  described  above. 

i 

For  every  grid  in  the  x  direction,  there  are  two  corresponding  y. grids  on  the 
water  side;  one  establishes  the  upper  shoreline  and  the  other  establishes  the 
lower  shoreline  as  shown  in  Figure  15.  Island  shore  grids  are  counted  on  the 
land  side  using  the  same  method  to  denote  upper  and  lower  .limits.  All  grid 
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Figure  10  Grid  Index  for  Detroit  River  (x  grid  range  119  to  201, 

y  grid  range  1  to  63) 
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Figure  14  Grid  Index  for  Detroit  River  (x  grid  range  202  to  285, 

y  grid  range  64  to  126) 
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Figure  15  Portion  of  Figure  12  illustrating  boxes  selected 
as  shoreline  grid  boxes 
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boxes  contained  between  these  limits,  excluding  those  between  island  grids, 
constitute  the  lake  or  river  water  surface  area.  The  data  files  set  up  for 
Lake  St.  Clair  and  the  Detroit  River  are  further  detailed  in  Chapter  III. 

Indexing  the  shorelines  as  described  requires  some  preliminary  work. 
Once  the  axes  are  established  on  appropriate  charts  (National  Oceanic  and 
Atmospheric  Administration,  National  Ocean  Survey,  Chart  14853,  8^  Ed.,  April 
14,  1979  for  Detroit  River  and  Chart  14850,  41St  Ed.,  December  24,  1983  for 
Lake  St.  Clair),  a  scaled  grid  sheet  can  be  placed  over  the  charts  and  grids 
can  be  counted  accordingly  to  locate  the  shoreline.  This  is  sufficient  for 
acquisition  of  the  boundary  grids,  yet  for  graphical  purposes  and  to 
facilitate  easier  interpretation  of  the  oil  spill  model  output,  grid  index 
figures  of  the  type  shown  in  figure  8  and  figures  9  through  14  should  be 
created.  These  figures  are  produced  using  a  software  (Petroski  and  Glebas, 
1985)  developed  to  record  shoreline  coordinates  directly  from  the  charts.  The 
axes  must  still  be  established  on  the  charts,  although  such  problems  as 
scaling,  multiple  charts  (Chart  14853,  No.'s  2-14),  and  translation  and 
rotation  from  one  chart  to  the  next,  can  easily  be  handled  by  the  computer. 
Furthermore,  permanent  indexing  figures  can  be  drawn  by  plotting  the  shoreline 
coordinates  and  the  grid  system  together. 
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CHAPTER  III 


INPUT  DATA  PILES 

There  are  three  categories  of  input;  the  first  is  data  for  the 
computation  of  lake  currents,  the  second  is  data  for  the  computation  of  river 
currents  and  the  third  is  miscellaneous  data  describing  oil  slick 
characteristics.  Some  of  these  categories  overlap  to  a  certain  degree,  as 
will  be  pointed  out,  although  for  the  most  part  they  are  rather  distinct.  The 
river  data  is  more  explicitly  explained  in  Volume  II  so  it  is  only  broken  down 
into  its  components  in  conjunction  with  a  complete  sample  data  set  in  this 
chapter.  The  lake  data  will  briefly  be  discussed  here  in  Chapter  IV,  since 
most  details  are  covered  in  the  report  by  Schwab  and  Sellars  (1980). 
Miscellaneous  data  will  simply  be  defined  as  the  need  arises. 

A  data  file  may  or  may  not  contain  a  mixture  of  some  river,  some  lake, 
and  some  miscellaneous  data.  The  resason  for  this  is  to  break  the  data  up 
into  fixed  data  which  the  user  need  never  touch  and  data  which  must  be 
adjusted  from  one  spill  to  the  next.  The  following  is  a  list  of  the  required 
input  files  with  their  contents. 


/  Filename  / 

Type  / 

Unit 

/  Contents 

/ 

LDETR.GEO 

FIXED 

1- 

River  geometry,  cross  sections 
branch  geometry 

and 

LDETR. ICE 

ADJUST 

5 

Ice  parameters,  ice  regions  and  lake  ice 
thickness . 

LDETR.FLW 

ADJUST 

7 

Water  level  and  discharge  from 
flow  model.  . 

unsteady 

LDETR. BND 

BOTH 

8 

Half  life  assignments  to  shore 

grids. 
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LDETR.SPL 


ADJUST 


12 


Oil  parameters,  spill  location  and  wind 
component  of  advection. 


LAKEWIND.DAT 

ADJUST 

10 

Meteorological  data 

for  lake. 

LAKEBATH.DAT 

FIXED 

13 

Lake  bathymetry  and 

parameters. 

LAKEINIT.PSI 

FIXED 

14 

Initial  streamfunction  values  in  lake. 

The  files  are  generally  broken  up  into  blocks  and  cards.  A  block  covers 
a  broad  classification  of  data  which  may  contain  one  or  more  card  types.  A 
card  type  is  one  line  of  specific  data  which  is  sometimes  repeated. 
(Example:  Block  5  in  LDETR.GEO  has  Cards  1  and  2  where  Card  2  is  repeated  as 
many  times  as  needed.)  By  inspecting J the  example  of  a  card  and  comparing  it 
to  the  complete  sample  data  set  at  the  end  of  this  chapter  it  is  easy  to  see 
how  the  entire  file  comes  together. 

Most  of  the  data  read  into  the  model  is  in  list  directed  I/O  (free 
format).  If  column  numbers  are  shown,  the  data  must  be  formatted  accordingly, 
otherwise  it  is  necessary  to  put  only  one  space  or  comma  between  each  number 
in  a  card. 

III.l  River  Data  Files 

LDETR.GEO 

The  LDETR.GEO  file  contains  the  complete  geometric  description  of  the 
river.  This  also  includes  shoreline  grid  boxes  and  grid  control  parameters 
for  the  lake.  The  file  consists  of  five  blocks  of  information.  All  blocks 
are  listed  below  with  descriptions  and  corresponding  components. 
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None  of  the  data  in  this  file  needs  to  be  adjusted  from  one  spill  to  the 
next.  The  user  may  choose  to  add  additional  cross  sections,  change  the  number 
of  branches,  relocate  shore  grids,  etc.  However,  the  user  is  cautioned  to 
consult  Volume  II  before  making  the  attempt. 

LDETR.GEO:  Block  1  (Branch  and  grid  information) 

Card  1  (Identification) 

Example: 

DETR  Lake  St.  Clair  and  Detroit  River 


/  Variable  /  Type  and  /  Column  / 
Name  Length  Number 


Definition 


WORD 

TEXT 


1-4  key  word  identifying  river 

5-80  any  text  to  describe  the  purpose  of 
computer  run 


Card  2  (Grid  control  paramters  for  lake  and  river)  ' 

Example: 

16  35  285  4000  500  7  -1.4E+05 

/  Variable  /  Type  and  /  Column  /  Definition 

Name  Length  Number 


NBRNCH 

Integer 

— 

number  of  branches 

LGRIDX 

Integer 

— 

number  of  x  grids  along  lake 

NGRIDX 

Integer 

— 

total  number  of  x  grid  boxes  j 

DXL 

Real 

— 

size  of  lake  grid  (ft) 

DXR 

Real 

— 

size  of  river  grid  (ft) 

KINTM 

Integer 

• 

number  of  velocity  interpolations  between 
cross  sections  in  a  streamtube 

BEGLK 

Real 

— 

x  coordinate  of  lake  grid  origin  (ft)  j 

36  | 

i  * 

Card  3  (Division  of  cross  sections  into  branches) 


Example: 

2  5  8  10  15  18  22  27  29  31  33  35  41  44  50  52 

/  Variable  /  Type  and  /  Column  /  Definition  / 

Marne  Length  Number 


LCSTSQ(I)  Integer  —  last  cross  section  in  each  branch.  Last 

branch  -  use  second  last  cross  section. 
There  must  be  NBRNCH  numbers  (one  for  each 
branch.)  If  line  is  not  long  enough, 
continue  on  another  card. 


LDETR.GEO;  Block  2  (Cross  section  location  and  connection  information) 
Card  1  (1  card  for  each  cross  section) 


Example: 

1  (250., 30500)  1.57079630  11  11  2  0 

/  Variable  /Type  and  /  Column  /  .  Definition  / 

Name  Length  Number 


J  Integer 

CORD LB (I)  Complex 


SCTANG(I)  Real 

NSTUBE(I)  Integer 

NUMCON(I)  Integer 


NFIRCO (I)  Integer 


cross  section  number  (for  checking) 

complex  variable  giving  x  and  y  coordinates 
locating  cross  section  on  reference  shore 
(ft, ft) 

angle  (radians)  cross  section  makes  with 
positive  x-axis 

number  of  streamtubes  at  current  cross 
section 

if  all  streamtubes  continue  to  next  cross 
section  undivided  =  11,  if  streamtubes 
divide  into  two  channels  from  main  channel 
=  12,  if  streamtubes  from  divided  channel 
connect  back  to  main  channel  =21. 

next  cross  section  connecting  to  current 
cross  section.  For  a  divided  channel 
around  an  island,  this  represents  the  first 
cross  section  connected  to  in  the  lower 
division  from  the  main  channel  cross 
section. 
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NSECO(I)  Integer  —  for  a  divided  channel  around  an  island, 

this  represents  the  first  section  connected 
to  in  the  upper  division  from  the  main 
channel  cross  section  (if  no  island  =  0,  if 
lover  division  complete  and  returning  to 
upper  division  =  888,  if  both  divisions 
complete  and  resuming  main  channel  =  999.) 


LDETR.GEO;  Block  3  (Cross  section  geometry) 


Card  1  (1  card  for  each  cross  section) 


Example: 

1 

17  571.71 

/  Variable  /  Type  and  / 
Name  Length 

Column  / 
Number 

Definition 

/ 

J 

Integer 

— 

cross  section  number  (for  checking) 

NSLSCT(J) 

Integer 

✓ 

number  of  sounding  depths  used  to  describe 
the  cross  section  geometry 

ZD(J) 

Real 

— 

reference  datum  for  cross  section  J 
which  the  sounding  depth  is  evaluated 

from 

(ft) 

Card  2  (as  many  cards  as 

required 

to  input  NSLSCT(J)  sets  of  YWID.Z) 

Example: 

1375.0  6.0 

1675.0  24, 

.0  3000. 

,0  21.0  3575.0  16.0  4000.0  23.0 

/  Variable 
Name 

/  Type  and  / 
Length 

Column  / 
Number 

Definition 

/ 

YWID(I.J) 

F8.2 

— 

distance  from  the  reference  shore  to  the 

J1*1  sounding  depth  in  the  I1"*1  cross  section 
(ft) 

Z(I.J) 

F8.2 

— 

J*"*1  sounding  depth  for  the  I^  section 

(ft) 

NOTE?  Block  3  must  be  repeated  LCSTSQ  (NBRNCH)  times  (i.e.  =  no.  of  cross 
sections  defined) 
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LDETR.GEO;  Block  4  (Boundary  grid  boxes  in  lake  and  river) 

Card  1  (1  card  for  each  grid  in  x-direction) 

Example: 

7  4  12  10  11 

/  Variable  /  Type  and  /  Column  /  Definition  / 

Name  Length  Number 


J  Integer  —  x-grid  box  number 

IGRILB(J)  Integer  —  y-direction  grid  box  number  of  lower  river 

t  h 

boundary  for  J  x-grid  (water  side  grid 
box) 

IGRIUB(J)  Integer  —  y-direction  grid  box  number  of  upper  river 

boundary  for  x-grid  (water  side  grid 

box) 

IGRILBl(J)  Integer  —  y-direction  grid  box  number  of  lower  island 

boundary  for  J*"*1  x-grid  (land  side  grid 
box) 

IRGIUB1 (J)  Integer  —  y-direction  grid  box  number  of  upper  island 

boundary  for  J  x-grid  (land  side  grid 

box) 

LDETR.GEO;  Block  5  (define  grids  having  zero  velocity  in  lake  and  river) 

Card  1 
Example: 

76 

/  Variable  /  Type  and  /  Column  /  Definition  / 

Name  Length  Number 


NZRVB  Integer  —  number  of  boxes  to  be  assigned  zero 

velocity 

Card  2 
Example: 

9  10 
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/  Variable  /  Type  and  /  Column  / 
Name  Length  Number 


Definition 


/ 


IZRBX(I)  Integer  —  x  grid  number  of  It^1  box  to  have  zero 

velocity 

IZRBY(I)  Integer  —  y  grid  number  of  1^  box  to  have  zero 

velocity 

There  must  be  NZRVB  pairs  of  IZRBX(I)  and  IZRBY(I).  Data  may  be  continued  to 
as  many  lines  as  needed. 


LDETR.ICK 


The  LDETR.ICE  file  contains  information  identifying  ice  regions  which  the 
user  will  have  to  adjust  as  ice  conditions  develop.  An  ice  region  is  a  range 
of  grid  boxes  containing  ice.  Ice  regions  in  the  lake  must  be  specified 
first.  An  example  is  sbown  in  Fig.  16  where  an  ice  regions  may  be  identified 
as  extending  from  grid  (15,7)  to  grid  (18,12).  The  ice  region  then  covers 
every  grid  from  (15,7)  to  the  upper  shoreline  of  x  column  (15),  all  grids  in  x 
columns  (16)  and  (17),  and  from  the  lower  shoreline  in  x  column  (18)  up  to  and 
including  grid  (18,7).  An  ice  region  may  also  be  identified  as  grid  (21,7)  to 
(21,9  ).  Then,  the  ice  region  will  only  extend  between  y  grids  (7)  and  (9  ) 
inclusive  in  x  grid  column  (21).  This  information  is  used  when  determining  if 
spreading  and  advection  takes  place  under  ice  or  on  open  water.  For  the  lake 
model,  the  ice  region  data  locates  where  wind  stress  is  zero,  where  the 
frictional  stress  due  to  the  ice  cover  must  be  considered,  and  where  the  lake 
depths  must  be  adjusted  for  the  thickness  of  the  ice. 
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Figure  16.  Defining  Ice  Regions 

LDETR. ICE;  Block  1  (Ice  regions  in  lake  and  river) 

Card  1 
Example: 


0.035  0.84 

/  Variable  /  Type  and  /  Column  /  Definition 


Name 

Length 

Number 

ANICE 

Real 

Manning's  n  for  ice  roughness 

AMIUO 

Real 

— 

2 

viscosity  of  oil  (lb  sec/ft  ) 

Card  2 
Example: 

1  1 
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/  Variable 
Name 

/  Type  and 
Length 

/  Column  / 
Number 

Definition 

/ 

NICERG 

Ingeter 

— 

total  number  of  ice  regions 

LICERG 

Integer 

— 

number  of  ice  regions  in  lake 

Card  3  (1  ca-fd  for  all  NICERG  ice  regions.  If  line  is  not  long  enough 
continue  on  next  line) 

Example: 

15  7  18  9 

/  Variable  /  Type  and  /  Column  /  Defintion  / 


Name 

Length 

Number 

NICEXl(I) 

Integer 

— 

x  grid 

at 

the  beginning 

of  ice  region 

NICEYl(I) 

Integer 

— 

y  grid 

at 

the  beginning 

of  ice  region 

NICEX2 (I) 

Integer 

— 

x  grid 

at 

the  end  of  ice 

region 

NICEY2 (I) 

Integer 

— 

y  8rid 

at 

the  end  of  ice 

region 

Card  4  (1  card  for  all 

LICERG  ice 

regions) 

- 

Example: 

1.0 

/  Variable  /  Type  and  /  Column  /  Definition  / 

Name  Length  Number 


ZLKICE(I)  Real  —  ice  thickness  in  lake  ice  region  (ft). 

Thickness  must  be  defined  for  each  lake  ice 
region  (use  one  line,  and  the”  continue  to 
next) 

NOTE:  Card  4  will  only  appear  after  Card  3  for  lake  ice  regions.  Ice 

thickness  in  river  is  accounted  for  through  input  in  file  LDETR.FLW. 

NOTE:  Cards  2,  3  and  4  must  be  repeated  for  each  unsteady  flow  model 
time  step. 
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LDETR.FLW 


The  LDETR.FLW  file  contains  the  water  level  and  discharge  boundary 
conditions  for  each  node  in  the  river  as  defined  by  the  one  dimensional  flow 
model  (Thomas,  1984).  Also  included  are  the  ice  conditions  for  each  cross 
section  in  the  river.  This  data  is  separate  from  the  ice  region  data  in 
LDETR.ICE.  The  oil  spill  simulation  model  converts  this  information  into 
boundary  conditions  for  each  river  branch.  The  lake  model,  RLID,  uses  the 
water  level  and  discharge  at  the  beginning  of  branch  No.  1  (lake-river 
interface)  to  adjust  the  bathymetric  and  streamfunction  files  to  reflect  the 
current  flow  conditions. 

This  file  consists  of  three  blocks  of  information.  All  blocks  are  listed 
below  with  descriptions  and  corresponding  components.  Blocks  2  and  3  must  be 
repeated  every  time  the  velocities  are  updated  in  the  model,  i.e.  '  every  time 
step  of  the  one  dimensional  flow  model.  Therefore,  the  data  in  this  file 
needs  to  be  adjusted  on  a  more  regular  basis. 

LDETR.FLW;  Block  1  (Time  step  for  updating  flow  conditions) 

Card  1 
Example: 

3.0 

/  Variable  /  Type  and  /  Column  /  Definition  / 

Name  Length  Number 

UFDT  Integer  —  time  step  in  one  dimensional  flow  model 

(hrs) 
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LDETR.FLW;  Block  2  (Discharge  and  water  level) 

Card  1  (1  card  for  each  node  in  the  one  dimensional  model) 


Example: 

573.72 

149190. 

/  Variable  / 
Name 

Type  and  / 
Length 

Column  / 
Number 

Definition 

/ 

WL  (I) 

F6.2 

— 

til 

water  level  at  I  node  (ft) 

Q(I) 

F10.0 

— 

discharge  at  I11*1  node  (cfs) 

LDETR.FLW;  Block  3  (Ice  thickness  information) 

Card  1 

Example: 

1  - 

/  Variable  /  Type  and  /  Column  /  Definition  / 

Name  Length  Number 

ICINFO  Integer  —  number  of  cross  sections  with  ice  covered 

conditions.  If  there  are  no  ice  covered 
sections,  set  ICINF0=1  and  then  in  Card  2, 
define  an  arbitrary  section  number  to  be 
OPEN. 

Card  2  (1  card  for  each  cross  section  with  ice  conditions) 

Example: 

2  OPEN 

/  Variable  /  Type  and  /  Column  /  Definition  / 

Name  Length  Number 

IS  14  1-4  cross  section  number  with  ice  cover 

condition 

WORD  A4  6-9  cross  section  ice  cover  condition, 

"FULLn=fully  covered,  "PARTM=partially 
covered,  "OPENM=open  water 
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NOTE:  Each  Card  2  is  followd  by  a  Card  3  and  the  Card  2,  Card  3  combination  is 
repeated  ICINFO(IS)  times  if  WORD  does  not  equal  "OPEN".  If  the  entire 
river  is  open  water,  the  data  for  this  time  step  ends  here. 

Card  3  (For  fully  covered  cross  section  only,  i.e.  if  WORD="FULL") 

Example: 

1.0 

/  Variable  /  Type  and  /  Column  /  Definition  / 

Name  Length  Number 


FULLT1  Real  —  ice  thickness  of  fully  covered  cress 

section  (ft) .  Only  one  value  read  and 
assigned  to  entire  cross  section 


Card  3  (For  partially  covered  cross  section  only,  i.e.  if  WORD="PART") 

Example:  (If  NSLSCT(IS)  =  9) 

.0  1.0  0.9  0.8  0.5  0.0  0.0  0.7  0.8  1.1 

/  Variable  /  Type  and  /  Column  /  Defintion  / 

Name  Length  Number 


TICE(I.J)  Real  —  ice  thickness  of  partially  covered  cross 

section  (it).  There  must  be  one  value  for 
each  NSLSCT(IS)  sounding  depth  location 
plus  one  additional.  Measurements  start  on 
the  reference  shoreline  and  proceed  from 
one  sounding  point  to  the  next  until  all 
points  have  some  ice  thickness  value 


NOTE:  The  one  additional  thickness  is  required  since  the  sounding  depth  on  the 
reference  shoreline  is  taken  as  zero  and  is  not  input  through  data,  yet 
an  ice  thickness  may  still  be  required  at  that  point. 


DETR.BND 


The  LDETK.JND  file  contains  one  block  of  data  to  identify  the  oil 
retention/rejection  characteristics  of  shorelines.  The  user  can  set  any  shore 
grid  box  with  one  of  the  ten  predetermined  half  life  values  defined  internally 
to  the  computer  model.  The  possible  values  are  given  later  in  section  III. A. 


Once  the  half  life  values  are  assigned,  this  file  shouldn't  require  any 
further  changes.  This,  however,  is  left  up  to  the  user's  discretion. 

LDETR.BND;  Block  2  (Half  life  data  for  lake  and  river) 

Card  1  (1  card  for  each  range  of  grid  boxes) 

Example: 

1  1  285  10 

/  Variable  /  Type  and  /  Column  /  Definition  / 

Name  Length  Number 


K 

Integer 

— 

shore  number;  see  Figure  4 

LFROM 

Integer 

— 

beginning  limit  (grid  box  number)  for  half 
life  designation  to  shore 

LTO 

Integer 

— 

ending  limit  (grid  box  number)  for  half 
life  designation  to  shore 

ICODE 

Integer 

— — 

integer  identifying  which  of  the  ten  half 
life  values  to  be  assigned  to  a  grid 

NOTE: 

The  last  card  must 
identify  the  end  of 

be  a 
the 

set  of  four  zeros  0000  which  are  used  to 
data  block. 

DETR.SPL 


The  LDETR.SPL  file  contains  two  blocks  of  information  controlling  the  oil 
characteristics  and  the  general  spill  simulation.  From  the  viewpoint  of 
modeling  actual  spills,  most  of  the  data  in  this  file  will  change  for  each 
spill.  If  only  oil  spill  scenarios  are  to  be  conducted,  most  of  the 
parameters  describing  a  particular  type  of  oil  may  remain  untouched,  although 
such  information  as  the  initial  spill  location  would  have  to  be  changed.  For 
these  reasons,  guidelines  are  given  later  (section  III. 4)  as  far  as  choosing 
appropriate  numbers  for  the  variables  described  here. 
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DETR.SPL;  Block  1  (Simulation  parameters  and  coefficients) 
Card  1  (Type  of  oil  -  Identification  only) 

Example: 

Fuel  oil  No.  2 


/  Variable  /  Type  and  /  Column  / 
Name  Length  Number 


Definition 


/ 


FUELTP  Character  1-16  text  for  identifying  the  oil  type 


Card  2  (Simulation  time  steps  and  printed  output  control  parameters) 
Example: 


6.0  1  0  1  0  0  450.  -1.0  -1.0 

/  Variable  /  Type  and  /  Column  /  Definition  / 

Name  Length  Number 


TOTIME 

Real 

total  time  of  oil  spill  simulation  (hrs) . 
This  value  must  equal  or  exceed  the  time 
step  in  unsteady  flow  model,  i.e.  in  FLW 
file. 

I EVERY 

Integer 

frequency  of  obtaining  output  from  PLOTNU 
and  other  subroutines  i.e.  value  of  two  (2) 
gives  output  every  other  time  step 

IOPT1 

Integer 

two  possible  values:  one  (1)  results  in 
output  of  fixed  data  such  as  cross  section 
geometry  and  shore  conditions,  zero  (0) 
cancels  this  output 

IOPT2 

Integer 

■ 

two  possible  values:  one  (1)  results  in 
output  of  computed  velocities  to  be  used 
for  plotting,  zero  (0)  cancels  this  output 

I0PT3  • 

Integer 

two  possible  values:  one  (1)  results  in 
output  of  particle  locations  to  be  used  in 
plotting,  zero  (0)  cancels  this  output 

I0PT4 

Integer 

two  possible  values:  one  (1)  results  in 
number  plot  of  particle  distribution  (see 
PLOTNU).  zero  (0)  cancels  this  output 

SPLTIM 

Real 

— 

duration  of  oil  spill  (sec).  For  a  spill 
released  over  7.5  minutes  SPLTIM=450.  Value 
of  zero  is  allowed. 
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DIFFUL 


Real 


2 

horizontal  diffusion  coefficient  (ft  /s) 
for  lake.  If  the  default  formulation  as 
described  in  Vol.  I  is  desired,  set  this 
value  to  -1.0 


9 

DIFFUR  Real  —  horizontal  diffusion  coefficient  (ft  /s)  for 

river.  If  the  default  formulation  as 
described  in  Vol.  I  is  desired  set  this 
value  to  -1.0 


Card  3  (Spill  description  and  spreading  equation  coefficients) 

Example: 

500  10000.  900.  0.84  1.411E-5  2.06E-3  1.14  0.98  1.6  1.39  1.39  1.43 


/  Variable  /  Type  and  /  Column  /  Definition  / 


Name 

Length 

Number 

NT0TAL 

Integer 

— 

total  number  of  particles  defined  in  the 
system  (current  max I mum  is  1000) 

SPVOL 

Real 

— 

total  volume  of  oil  spill  (U.S.  gal) 

SPILDT 

Real 

— 

magnitude  of  time  step  for  spill  simulation 
(sec) 

SPGOIL 

Real 

— 

specific  gravity  of  oil 

AN  IU 

Real 

— 

kinematic  viscosity  of  water  (sq  ft/sec) 

SIGMA 

Real 

— 

surface  tension  of  oil  (lbs/ft) 

AK2I 

Real 

— 

gravity-inertia  phase  spreading  coefficient 
(axisymmetrical) 

AK2V 

Real 

— 

gravity-viscous  phase  spreading  coefficient 
(axisymmetrical) 

AK2T 

Real 

— 

surface  tension-viscous  phase  spreading 
coefficient  (axisymmetrical) 

AK.C10 

Real 

— 

gravity-inertia  spreading  phase  coefficient 
(one-dimensional) 

AKC20 

Real 

— 

gravity-viscous  phase  spreading  coefficient 
(one-dimensional) 

AKC30 

Real 

—  ■ 

surface  tension-viscous  phase  spreading 
coefficient  (one-dimensional) 
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Card  4  (Spill  location  and  additional  oil  properties) 
Example: 

-5000.  35000.  .7063E-02  .1873E-02  7.88  465.0 


/  Variable  /  Type  and  /  Column  / 
Name  Length  Number 


Definition 


VMUNI 


x-coordinate  of  initial  spill  site  (ft), 
negative  if  in  lake 

y-coordinate  of  initial  spill  site  (ft) 
molar  volume  of  oil  (cu  ft/mol) 


S0LUNI 


solubility  of  fresh  oil  (lbs/cu  ft) 


coefficient  C  of  evaporation 
characteristics  of  oil 


TO  EVP 


boiling  point  temperature  of  oil  K 


NOTE:  If  you  define  a  value  of  less  than  1.0  for  boiling  point  temperature  the 
program  defines  the  evaporation  characteristics,  using  fitted  curves. 
Therefore  the  input  values  of  CEVP  and’  T0EVP  have  no  influence  on 
computations  although  they  are  read. 


DETR.SPL;  Bl^^k  2  (Components  of  wind  speed  and  environmental  temperature) 


Card  1  (1  card  fcr  each  time  step  in  simulation) 


Example: 


270.0 


/  Variable  /  Type  and  /  Column  / 
Name  Length  Number 


Definition 


The  file  LAXEWIND.DAT  contains  the  meteorological  data  for  the  lake 
circulation  model.  Description  of  this  data  can  be  found  in  listings  of 
subroutines  RLID,  PARTIC  and  TAU  (Appendix  II),  and  in  the  report  by  Schwab, 
et  al.  (1981).  The  lake  model  uses  this  data  to  compute  the  surface  wind 
stress  in  both  time  and  space.  If  only  one  wind  observation  is  available,  the 
time  of  observation  must  be  given  as  zero  (0).  The  most  important  detail  to 
be  aware  of  when  assembling  this  data  file  is  that  the  time  interval  between 
subsequent  wind  data  must  be  the  same  as  the  time  step  (UFDT)  for  the  one 
dimensional  river  model. 

This  file  consists  of  only  one  block  of  data.  Since  wind  stations  and 
the  elevation  at  which  data  is  recorded  isn't  likely  to  change,  the  user  need 
merely  adjust  the  wind  magnitude  and  direction  for  each  execution  of  the 
program.  Of  course,  if  the  interval  (UFDT)  changes,  so  must  the  times  for 
this  data. 

LAKEWIND.DAT;  Block  1  (Lake  meteorological  data) 

Card  1  (1  card  for  each  wind  station,  maximum  25  wind  stations  per  time 
interval  (UFDT)) 

Example: 

0.  A2.A2  82. A2  30.  6A.  5A.  15.0  180. 


50 


/  Variable  /  Type  and  /  Column  /  Definition  / 


Name 

Length 

Number 

TLAST 

G10.4 

1-10 

time  at  which  wind  observation  is  made  (hrs 
from  initial  spill) 

ELAT 

G10.4 

11-20 

latitude  of  wind  observation  point  (degrees 
north) 

RLON 

G10.4 

21-30 

longitude  of  wind  observation  point 
(degrees  west) 

Z 

G10.4 

31-40 

height  of  instruments  (ft) 

TA 

G10.4 

41-50 

temperature  of  air  (°F) 

TW 

G10.4 

51-60 

temperature  of  water  (°F) 

WS 

G10.4 

61-70 

wind  speed  (ft/sec) 

WD 

G10.4 

71-76 

wind  direction  (degrees  clockwise  form 
north) 

NOTE:  The  last  card  must  have  a  vlaue  for  TLAST  equal  to  -1.0.  This  denotes 
-  that  no  more  wind  information  is  available.  All  data  for  the  same  time 
are  grouped  together. 

LAKEBATH.DAT 

The  file  LAKEBATH.DAT  consists  of  three  blocks  of  data  which  contains  the 
bathymetric  data  and  various  grid  control  parameters  for  the  lake  circulation 
model.  Description  of  this  data  can  be  found  in  listings  of  subroutines  RLID, 
PARTIC  and  RGRID  (Appendix  II) ,  and  in  the  report  by  Schwab  and  Sellars 
(1980) .  The  lake  model  uses  the  depth  when  solving  the  vertically  integrated 
shallow  water  equations  written  in  terms  of  the  stream  function  (Volume  I). 
The  user  need  never  change  any  data  in  this  input  file.  In  the  event  that 
changes  are  desired,  the  user  should  consult  Chapter  IV  or  the  report  by 
Schwab  and  Sellars  (1980). 
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LAKEBATH.DAT;  Block  1 (Title  and  grid  control  parameters) 

Card  1 
Example: 

LAKE  ST.  CLAIR  BATHYMETRY 

/  Variable  /  Type  and  /  Column  /  Definition  / 

Name  Length  Number  , 

IPARM(5-54)  A1  1-50  title  of  lake 

Card  2 
Example: 

36,  38,  42.3041534,  82.9315796,  4000,  19,  1,  -2.24,  39.677.  10.087,  -120.06 
/  Variable  /  Type  and  /  Column  /  Definition  / 


Name 

Length 

Number 

IPARM(l) 

15 

1-5 

number  of  grids  in  x  direction 

IPARMC2) 

15 

6-10 

number  of  grids  in  y  direction 

RPARM(l) 

F12.7 

11-22 

base  latitude 

RP ARM ( 2 ) 

F12.7 

23-34 

base  longitude 

RPARM(3) 

F5.0 

35-39 

grid  dize  (ft) 

RPARM(4) 

F5.0 

40-44 

maximum  depth  (ft) 

RPARM(5) 

F5.0 

45-49 

minimum  depth  (ft) 

RPARM(6) 

F6.2 

50-55 

base  rotation  (counterclockwise  is 
negative) 

ZPARM(l) 

F7.3 

56-62 

I-Displacement,  the  number  of  new  grid 
squares  in  the  x  direction  from  the  new 
grid  origin  to  the  old  grid  origin 

ZPARM(2) 

F7.3 

63-69 

J-Displacement,  the  number  of  new  grid 
squares  in  the  y  direction  from  the  new 
grid  origin  to  the  old  grid  origin 

RPARM(7 ) 

F7.2 

70-76 

rotation  from  base  (counterclockwise  is 
negative) 
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Card  3 


Example: 

0.822690E+02  -0.418687E+01  -0. 892958E+00  0.549244E+00 

Variable  /  Type  and  /  Column  /  Definition  / 

Name  Length  Number 

RPARMO  E15.6  1-60  geographic  to  map  or  map  to  geographic 

coordinate  conversion  coefficients 

NOTE:  Card  3  is  repeated  until  all  16  coefficients  RPARM(8)  through  RPARM(23) 
are  read. 

LAKEBATH.DAT;  Block  2  (Grid  depths) 

Card  1  (Each  card  contains  19  grid  depths) 

Example: 

9  9  6  4  0  0  0  3  10  10  10  12  11  11  9  7  5  0  0 

/  Variable  /  Type  and  /  Column  /  Definition  / 

Name  Length  Number 

D(I.J)  F4.0  1-76  grid  depths 

NOTE:  Card  1  repeated  until  all  grid  depths  are  read. 

LAKEBATH.DAT;  Block  3  (Time  step  of  lake  circulation  model) 

Card  1 
Example: 

1. 

/  Variable  /  Type  and  /  Column  /  Definition  / 

Name  Length  Number 

DT  G8.2  1-8  time  step  for  lake  circulation  model 
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LAKEINIT.PSI 


The  file  LAKEINIT.PSI  contains  only  one  block  of  information  which 
consists  of  initial  stream  function  values  for  every  grid  in  the  lake.  This 
file  requires  no  adjustment  once  it  is  set  for  a  specified  discharge.  Details 
of  setting  up  this  input  file  and  how  the  stream  functions  are  used  to 
establish  boundary  conditions  are  covered  in  Chapter  IV.  If  no  initial  stream 
function  file  is  available  the  default  will  set  all  stream  functions  to  zero. 

LAKEINIT.PSI;  Block  1  (Initial  stream  function  values) 

Card  1 
Example: 

0. 10000E+21  0. 10066E+06  0.97943E+05  0.96472E+05 

/  Variable  /  Type  and  /  Column  /  Definition  / 

Number  Length  Number 

S(I,J)  E12.5  1-72  initial  streamf unction  for  lake  grids 

NOTE:  The  example  only  shows  typical  values.  Each  card  in  the  actual  file 
contains  six  (6)  streamfunction  values. 

III. 3  Input  Adjustments 

For  a  lake-river  system  (i.e.  Lake  St.  Clair-Detroit  River  area)  which 
already  has  the  necessary  input  files,  very  little  has  to  be  modified  to  run 
the  model  for  a  variety  of  spill  scenarios.  The  cards  most  likely  to  require 
modification  are  cited  below.  This  is  followed  up  with  some  guidelines  and 
suggested  values  for  input.  No  at  -mpt  is  made  to  explain  the  formatting  of 
the  data  changes  here.  The  user  is  expected  to  refer  to  sections  III.l  and 
III. 2  for  specific  formattting  procedures.  Cards  most  likely  to  require 
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up-to-date  information  include: 


/  File 

Name 

/  Block 
Number 

/  Card  / 

Number 

Variables  / 

LDETR. ICE 

1 

1 

ANICE,  AMIUO 

LDETR. ICE 

1 

2 

NICERG,  LICERG 

LDETR. ICE 

1 

3 

NICEX1  () ,  NICEYIQ,  NICEX20.  NICEY20 

LDETR. ICE 

1 

4 

ZLKICE 

LDETR.  FLW 

1 

1 

UFDT 

LDETR. FLW 

2 

1 

WL() ,  Q () 

LDETR. FLW 

3 

1 

ICINFO 

LDETR. FLW 

3 

2 

IS,  WORD 

LDETR. FLW 

3 

FULLTI  or  TICE(  ,  ) 

LDETR. END 

1 

1 

ICODE 

LDETR. SPL 

1 

2 

TOTIME,  SPLTIM 

LDETR. S’  L 

1 

3 

NPTCL,  SPVOL,  SPILDT,  SPGOIL,  ANIU,  SIGMA, 
DIFFUL,  DIFFUR 

DETR.SPL 

2 

1 

VWMAG,  THETA,  TENVF 

LAKEWIND.DAT  1 

1 

TLAST,  TA,  TW,  WS,  WD 

Some 

of  the  variables  listed 

here  may  not  change  at  all  and  other 

additional 

parameters 

not  listed 

may  need  some  revision. 

PETR. ICE 

The  Manning's  n  of  the  undersurface  of  the  ice  cover  and  the  viscosity  of 
oil  must  be  specified  in  this  file  as  ANICE  and  AMIUO,  respectively. 
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In  general.  Manning's  n  can  range  from  0.020  to  0.065  for  the  underside 
of  an  ice  cover.  Oil  viscosity  is  a  property  specific  to  the  type  of  oil 
which  has  been  spilled. 

The  user  must  locate  ice  regions  in  the  water  body  and  convert  that 

information  to  the  appropriate  grids.  Suggestions  for  handling  the 

acquisition  of  this  data  is  as  follows: 

1. )  Set  up  typical  files  for  the  stages  of  ice  cover  progression  in  both  the 

lake  and  river.  In  this  way,  seasonal  4ata  files  corresponding  to  the 

state  of  ice  conditions,  can  be  selected  without  spending  too  much  time 

assembling  data. 

2. )  Locate  ice  regions  on  the  grid  maps  in  Chapter  II,  which  have  sufficient 

detail  on  the  shoreline  geometry  and  landmarks. 

Specifying  the  ice  region  area  and  the  number  of  ice  regions  was 
described  earlier  in  Section  III. 2.  Caution  is  given  to  keep  ice  regions  in 
the  lake  separate  from  those  in  the  river.  An  ice  region  that  extends  from 
lake  to  the  river  must  be  considered  as  two  regions.  When  entering  the  data, 
like  ice  regions  must  be  specified  first  followed  by  river  ice  regions.  Also, 
note  that  LICERG  only  refers  to  the  number  of  lake  ice  regions  whereas  NICERG 
is  the  total  number  of  all  ice  regions.  The  model  is  only  set  up  to  handle  a 
maximum  of  20  ice  regions.  If  more  are  desired,  the  size  of  arrays  (ZLKICEQ, 
NICEXlO,  NICEY1  () ,  NICEX2  () ,  and  NICEY2  ()  must  be  increased. 

The  reason  for  specifying  lake  ice  regions  first  is  tied  to  the  ice 
thickness  data.  Whenever  an  ice  region  is  specified  for  the  lake,  the  next 
information  read  is  the  corresponding  lake  ice  thickness.  The  thickness. 
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ZLKICE,  is  considered  to  be  uniform  for  the  entire  region  and  is  used  to 
adjust  the  lake  depths  for  the  presence  of  ice. 

DBTR.FLW 

Stage  and  discharges,  Q()  and  WL()  at  nodes  in  the  river  are  unlikely  to 
remain  constant  with  respect  to  time.  Therefore  this  information  must  be 
entered  to  reflect  the  correct  flow  conditions.  The  one-dimensional  river 
unsteady  flow  model  is  used  to  obtain  this  information.  To  set  up  the  file, 
LDETR.FLW,  simply  enter  the  unsteady  flow  model  time  step,  UFDT.  and  then  the 
discharge,  Q(),  and  water  level,  WL(),  which  appear  in  the  one-dimensional 
models  output. 

To  account  for  ice  conditions  when  computing  the  river  velocities, 
additional  data  locating  ice  in  each  cross  section  is  required  in  file 
LDETR.FLW.  Specifying  this  ice  information  for  partially  ice  covered  river 
cross  sections  needs  some  clarification.  Remember  that  each  cross  section  is 
described  by  sounding  depths  and  distances  from  a  reference  shore  at  which 
those  sounding  depths  were  taken.  The  data  is  assembled  in  Block  3,  Cards  1  & 
2  of  file  LDETR.GEO  with  the  reference  shoreline  for  the  Detroit  River  as  the 
lower  shoreline  in  the  x-y  grid  system  of  Chapter  II.  The  number  of  sounding 
depths  and  the  locations  from  the  reference  shore  are  not  the  same  for  each 
cross  section.  This  information  is  presented  in  tabular  form  in  Appendix  I. 
The  above  mentioned  table  is  prepared  based  on  the  data  in  Block  3  of 
LDETR.GEO.  In  the  case  of  a  partially  ice  ocvered  section  an  ice  thickness 
needs  to  be  defined  at  each  sounding  depth  location.  Figure  17  shows  the 
Detroit  River  with  the  designated  reference  shoreline  and  cross  section 
locations.  Cross  section  numbers  are  the  same  as  those  found  in  LDETR.GEO. 
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Figure  17  Cross  section  locations  in  Detroit  River 
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Therefore,  by  using  Appendix  I,  Figure  17,  and  the  extent  of  ice  cover  at  the 
cross  sections,  the  user  should  be  able  to  correctly  input  the  ice  thickness 
data  for  the  array  TICE(  ,  ). 

LDETR.BND 


The  half-life  code,  ICODE,  must  be  assigned  to  the  shoreline  grids  along 
the  lake  and  river  to  enable  the  computation  of  re jection/retention  of  oil. 
Ten  possible  half-life  codes  are  currently  available.  They  should  be  broad 
enough  to  cover  any  situation  and  are  given  according  to  the  type  of  shoreline 

4 

as: 


ICODE 


Half-Life  (hrs) 


Shore  Characteristics 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 


0.033 

0.5 

1 

6 

12 
18 
24 
48 
48 
87  6C 


sheet  piling 
commercial  docks 
private  docks 


embankments 


sand/gravel  beach 
marsh 

shallow  water 

bays,  sheltered  areas 


No  information  is  available  to  more  accurately  correlate  the  half-life 
values  to  the  shoreline  characteristics  other  than  what  is  given  here. 
Torgrimson's  (1984)  suggested  half-life  values  were  used  to  arrive  at  those 
given  above.  The  logic  used  to  obtain  these  values  is  that  the  smaller  the 
half-life,  the  less  lik  .y  the  oil  will  remain  on  the  shore. 
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LDETR.SPL 


The  oil  spill  parameters  in  LDETR.SPL  will  require  the  most  modification 
of  any  file  from  spill  to  spill.  Any  particular  spill  will  have  its  own  total 
simulation  time,  TOTIME,  simulation  time  step,  SPILDT,  duration  of  spill, 
SPLT1M,  spill  volume,  SPVOL,  number  of  particles,  NPTCL  (maximum  1000),  spill 
location,  SPX  and  SPY,  wind  speed  and  direction,  VWMAG  and  THETA,  air 
temperature,  TENVF.  and  oil  and  water  properties,  so,  it  will  be  necessary  to 
adjust  these  data  each  time  a  new  spill  is  simulated.  Most  of  these  are 
self-explanatory  and  have  already  been  described  in  Section  XII. 1.  Those 
which  require  particular  attention  are  the  spill  location,  wind  components  and 
oil  and  water  properties. 

The  spill  location  can  be  determined  using  Figures  8  through  14.  Knowing 
the  grid  sizes'  of  both  the  lake  (currently  4000  ft)  and  river  (currently  500 
ft)  and  the  location  of  the  x  and  y  axes,  a  particular  location  can  be 
pinpointed  anywhere.  Note  that  the  lake  domain  has  negative  x  coordinates  and 
the  river  domain  has  positive  x  coordinates. 

The  wind  speed  and  direction  which  is  used  to  compute  the  wind  component 
of  the  drift  velocity  must  be  input  for  every  SPILDT  time  interval.  The  unit 
of  wind  speed  is  ft/s.  The  wind  direction  is  the  clockwise  angle  measured 
from  magnetic  north.  As  an  example,  wind  blowing  out  of  the  west  has  a 
direction  of  270°. 

For  the  type  ,of  oil  being  used  in  the  simulation,  the  specific  gravity 
(SPGOILj ,  molar  volume  (VMUNI)  and  solubility  in  water  (S0LUNI) ,  must  be 
specified.  Also,  the  oil  water  interfacial  tension  (SIGMA),  and  the  viscosity 
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of  water  (ANIU) ,  are  required  input. 

For  determining  evaporation  rates  of  oil,  coefficient  C  (CEVP)  and 
boiling  point  temperature  (TOEVP)  are  needed.  The  user  has  an  option  here. 
If  TOEVP  is  given  a  value  less  than  1.0,  the  model  automatically  computes  CEVP 
and  TOEVP,  using  the  curves  described  in  an  earlier  section.  The  curves  used 
are  for  crude  oils  with  API  value  ranging  from  10  to  45.  The  data  for  CEVP 
and  TOEVP  must  be  present  in  the  datafile  although  they  serve  no  purpose  in 
this  case.  The  other  option  is  to  enter  the  correct  CEVP  and  TOEVP  values. 
In  this  case  values  of  CEVP  and  TOEVP  will  be  used  for  computing  evaporation 
rates.  It  should  be  noted  that  an  oil  having  an  API  value  between  10  and  45 
is  not  necessarily  a  crude  oil.  For  non-crude  oils,  CEVP  and  TOEVP  should  be 
given  as  input. 

LAKEWIND.DAT 

The  wind  data  required  by  the  lake  model  may  come  from  the  same  wind 
stations  where  the  wind  speed  and  direction  were  given  as  input  to  the  oil 
spill  model.  However,  in  order  to  protect  the  integrity  of  both  the  lake  and 
river  models,  the  information  must  be  read  from  two  separate  files.  In  the 
file  LAKEWIND.DAT,  forecasted  wind  speed,  WS,  wind  direction  (degrees 
clockwise  from  north),  WD,  and  air  and  water  temperatures  can  be  directly 
placed  in  the  file  without  any  conversion  or  rotation.  The  time  ir^rval  for 
data  specification  is  independent  of  any  other  time  step  in  the  model.  the 
user  may  simply  input  one  line  of  wind  data  at  T  =  0  hours  and  the  model  will 
use  this  wind  data  for  the  entire  simulation.  The  lake  model  will  always  use 
the  last  data  read  in  if  the  simulation  continues  longer  than  the  last  time 
specified  in  LAKEWIND.DAT.  The  sample  file  given  at  the  end  of  this  chapter 
has  ficticious  weather  station  locations. 
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III. 4 


Saaple  Data  Files  (for  Lake  St.  ClaiiHPetroit  River  Study  Area) 


Input  Datafile  Name  Unit  No. 

LDETR.GEO  1 
LDETR. ICE  5 
LDETR.FLW  7 
LDETR. BND  8 
LDETR. SPL  12 
LAKEWIND.DAT  10 
LAKEBATH.DAT  13 


Output  Datafile  Name  Unit  No. 

* 

OILPRT.OUT  2 

VELSTR.OUT  3 

VELCAR. OUT  4 

LDETRSP.OUT  11 

LAKETEMP.PS!  15 
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LDETR.GEO  (UNIT  1) 


DETB  LAK  E  ST.  CLUB  AND  DE2B0I7  RIVS3 


35 

285  4000.  500. 

7  -1.4B+05 

5  8 

10  15  18  22 

27  29  31  33 

35 

41 

44 

50  52 

1 

(250..  30500) 

1.  57079630 

11 

It 

2 

0 

2 

{ia9c-a. 90474, 91 

1. 35387330 

11 

12 

3 

6 

3 

(1895.4,  30474.9) 

0.80316770 

9 

11 

4 

0 

4 

(3572.5,28827.7) 

0. 57252250 

9 

11 

5 

0 

5 

(4329.2,  27835.3) 

0.85065230 

9 

21 

9 

0 

6 

(6348.3,33351.1) 

0.32890491 

2 

11 

7 

888 

7 

(6573.7,  33287.7) 

0.27566774 

2 

11 

8 

0 

a 

(6880.6,30383.6) 

0. 19895402 

2 

21 

9 

999 

9 

(  5218.9,  26793.0) 

0.60033042 

11 

11 

10 

0 

10 

(6206.  0,24830.4) 

0.78546520 

11 

12 

11 

16 

1 1 

(7367.3,  23735.9) 

0.38429453 

4 

11 

12 

0 

12 

(11648.1 ,18516.6) 

3.39099240 

4 

11 

13 

0 

13 

(16161.9, 16194.4) 

1.06953870 

4 

11 

14 

0 

14 

(16630.9,16089.5) 

1.03244550 

4 

11 

15 

0 

15 

(  18885.3,  15317.3) 

1.29700210 

4 

21 

19 

0 

16 

(10645.8,26730.4) 

1. 50359930 

7 

11 

17 

838 

17 

(15909.5, 22917.5) 

0.89085370 

7 

11 

18 

0 

18 

(19678.2,13445.3) 

0.56874  1B7 

7 

21 

19 

999 

19 

(20184.2,  14800.2) 

C. 652506  02 

11 

11 

20 

0 

20 

(23601.6 ,12740.2) 

1.0  176  1670 

11 

11 

21 

0 

21 

(279  86.0,  9434.1) 

0.84731720 

11 

11 

22 

C 

22 

(32096.4,6111.7) 

1. 11644090 

1 1 

11 

23 

0 

23 

(36555.3,4153.7) 

1.31789400 

1  1 

11 

24 

0 

24 

(43737.9,3322.7) 

1. 29165360 

11 

11 

25 

0 

25 

(481  11.9,2967.3) 

1.73312770 

11 

1  i 

26 

0 

26 

(52258.0,3574.1) 

1.70696930 

11 

11 

27 

0 

27 

(58891.5,  4663.2) 

1.74159230 

11 

11 

23 

0 

28 

(60921  .2  ,4700.4) 

1.89850420 

11 

11 

29 

0 

29 

(63193.4,  4508.6) 

1. 85897050 

11 

12 

30 

36 

30 

(64446.6,4279.9) 

1.40498040 

9 

11 

31 

0 

31 

(67  199.6,  2832.9) 

1.55881210 

9 

11 

32 

0 

32. 

(75 744.0.7230.3) 

2.07408620 

9 

11 

33 

.  0 

33 

(81028.9,  8357.  1) 

2.01051160 

9 

12 

45 

34 

34 

(83712.4,11534.0) 

1.85562200 

7 

11 

35 

8G8 

35 

(87888.6, 13541.0) 

1.97159570 

7 

21 

42 

0 

36 

(63732.4 ,8702. 1) 

2.37748450 

2 

11 

37 

888 

37 

(67304.8,  11205.3) 

1.95566550 

2 

11 

38 

0 

38 

(75490.2,15658.0) 

2-08554360 

2 

11 

39 

0 

39 

(79227.9, 18354.3) 
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2 

21 

40 

0 

40 

(82248.9,17195.8) 

1.63633540 

2 

1 1 

4  1 

0 

41 

(85910.8,  182  03.0) 

1.96796920 

2 

21 

42 

999 

42 

(95603.0,19752.6) 

1.98250300 

9 

11 

43 

0 

43 

(99230.8,  22002.  3) 

2.09447510 

9 

1 1 

44 

0 

44 

(101000.3,23059.3) 

2.  10296690 

3 

1 1 

43 

0 

45 

(84015.6, 9218.3) 

1.97403760 

2 

1 1 

46 

0 

46 

(89415.8,9892.4) 

1. 55666350 

2 

1 1 

47 

0 

47 

(94836.8,  10752.4) 

2. 10653900 

2 

1 1 

48 

0 

48 

(98678.7 , 12200. 2) 

1.  4  1654700 

2 

1 1 

49 

0 

49 

(10501  5.  3,  13430.9) 

1. 97177820 

2 

11 

50 

0 

50 

(109190.4, 15253.3) 

1.39456780 

2 

11 

51 

0 

51 

(  114885.3,  16482.1) 

2. 00199130 

2 

11 

52 

0 

52 

( 121352. 6, 13517.5) 

2.37169300 

2 

11 

53 

0 

53 

(125494. 9,22087.9) 

2.670193  10 

2 

1 1 

52 

0 

1  17  57  1.71 

1375.00  6.00  1675.00  24.00  3000.00  21.00  3575.00  16.00  4000.00  2J-J 
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LDETR.GEO  (UNIT  1) 


2 

16 

571.71 

125.00 

12.00 

200.00 

21.00 

1500.00 

2550.00 

9.00 

3125.00 

6.00 

4  375.00 

662S.00 

19.00 

7000.00 

25.00 

7750.00 

11783.00 

0.000 

3 

10 

574.87 

25.00 

14.00 

125.00 

28.00 

5  00.00 

1750.00 

32.00 

2000.00 

30.00 

2250.00 

4 

10 

574.94 

155.00 

25.00 

900.00 

27.50 

1025.00 

1700.00 

43.00 

2125.00 

30.00 

2375.00 

5 

9 

574.91 

50.00 

12.00 

125.00 

20.00 

750.00 

2425.00 

28.00 

2525.00 

5.00 

3250.00 

6 

5 

574.45 

75.00 

12.00 

17  5.00 

22.00 

250.00 

7 

5 

574.50 

75.00 

12.00 

175.00 

22.00 

250.00 

8 

1  0 

574.91 

80.8  0 

11.00 

141.  60 

26.30 

197.30 

759.60 

30.00 

1123.80 

24.  10 

1183.60 

9 

15 

574.92 

125.00 

12.00 

250.00 

25.00 

500.00 

1250.00 

23.00 

2050.00 

22.50 

2350.00 

•250.00 

43  .00 

4650.00 

45.00 

4825.00 

10 

1 1 

574.87 

75.00 

4.00 

275.00 

18.00 

575.00 

2825.00 

27.00 

38  25.00 

29.00 
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5  075.00 

0.00 

11 

7 

574.82 

101.10 

25.00 
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146  J.00 

0.00 

12 

1  1 

574.54 
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13 
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574.27 
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21.90 

1004.50 

1598.30 

27.00 

1684.20 

19.90 

1862.20 

2203. 80 

0.00 

16 

12 

574.35 

125.00 

25.50 

250.00 
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20 

9 

574.59 

10.00 

27.00 
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6  25.00 
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43.00 

2625.00 
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CHAPTER  IV 


STREAM  FUNCTION  AM)  BATHYMETRY  OF  LAKE 


IV. 1  Introduction 


The  information  in  this  chapter  is  needed  only  if  lake  bathymetry  data 
needs  to  be  changed.  The  input  files  LAKEBATH.DAT  and  LAKEINIT.PS!  for  Lake 
St.  Clair  can  be  revised  if  a  smaller  grid  size  or  new  boundary  conditions  are 
desired.  The  work  is  rather  tedious  and  requires  attention  to  details  covered 
in  this  chapter,  but  it  can  be  done.  The  report  by  Schwab  and  Sellars  (1981) 
was  used  to  direct  the  collection  of  the  current  Lake  St.  Clair  files  and  may 
be  consulted. 

Figures  18  and  19  illustrate  what  the  depth  and  stream  function  files 
look  like  respectively  when  printed  out  as'two  dimensional  arrays.  Areas  in 
the  lake  which  represent  land  are  masked  with  a  special  value  (SPVAL) .  This 
causes  the  stars  (*)  to  be  printed.  The  stars  in  the  depth  array  (Figure  18) 
represent  a  depth  of  zero  (0)  feet.  The  stars  in  the  stream  function  array 
(Figure  19)  lepresent  a  very  large  number  (i.e.  1.0E+21  currently  used.)  The 
SPVAL  for  the  lake  is  used  as  an  indicator  for  locating  a  boundary  and  is  not 
part  of  the  actual  calculation  of  stream  functions. 

Close  examination  of  the  positions  occupied  by  depths  and  stream 
functions  quickly  reveals  that  not  every  array  location  that  contains  a  stream 
function  value  has  a  depth.  The  reason  is  partly  because  the  stream  functions 
not  only  serve  to  give  the  discharge  between  grid  points,  but  they  are  also 
used  to  establish  both  the  no  flux  boundary  condition  at  the  lake  shore  and 
the  discharge  conditions  at  river  mouths.  Furthermore,  the  additional  boxes 
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with  assigned  stream  functions  are  required  by  the  second  order  differencing 
technique  used  to  solve  the  stream  function  equation.  The  no  flux  condition 
along  the  lake  boundary  is  accomplished  by  setting  stream  function  values  in 
adjacent  grids  equal.  The  difference  in  stream  function  values  across  the 
river  mouth  corresponds  to  the  river  discharge  into  or  out  of  the  lake. 
Figure  20  shows  the  discharge  points,  percentages  and  directions  used  in  the 
current  Lake  St.  Clair  stream  function  file.  Relating  Figure  20  to  Figure  19, 
all  numbers  bordering  the  stars  across  the  bottom  and  top  of  the  lake  are 
constant  and  numbers  bordering  the  stars  on  the  left  and  right  side  change  as 
discharge  points  are  encountered. 

IV. 2  Lake  Bathymetry  Data 

This  section  will  focus  on  the  procedure  for  setting  up  a  new  depth  array 
for  Lake  St.  Clair.  First,  it  is  necessary  to  draw  a  new  grid  over  the  lake 
chart  (National  Ocean  Survey  Chart  14850)  with  the  new  grid  size.  To  avoid 
changing  any  more  additional  parameters  than  absolutely  necessary,  grid  (1,1) 
should  originate  from  the  same  point  as  grid  (1,1)  does  in  Figure  7  and  the 
current  grid  size  (4000  ft)  must  be  divisible  to  a  whole  number  by  the  new 
grid  size.  Then,  the  geographic  to  map  and  map  to  geographic  conversion 
coefficients  will  not  be  affected.  These  coefficients  should  never  be  changed 
unless  a  new  base  origin  is  used  and  the  coefficients  recalculated.  The 
current  model  uses  the  original  base  computed  by  Schwab  and  Sellars  (1981). 

Second,  parameters  IPARM(l)  and  IPARM(2)  are  computed  by  counting  the 
number  of  grids  from  grid  (1,1)  to  the  lake  river  interface  plus  one  (1)  and 
the  number  of  grids  from  the  x  axis  to  at  least  one  grid  past  the  upper 
shoreline.  Parameter  RPARM(3)  is  changed  to  the  new  grid  size.  Then, 
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Figure  20  Discharge  points,  percentages  of  total  discharge 
at  the  points,  and  discharge  directions  used  in 
the  current  LAKEINIT.PS!  file 
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ZPARM(l)  and  ZPARM(2)  are  multiplied  by  the  ratio  of  the  old  grid  size  to  the 
new  grid  size. 

Third,  the  grids  which  fall  within  the  lake  shore  will  be  assigned  an 
average  of  the  sounding  depths  shown  on  the  chart.  Islands  are  currently 
assigned  the  minimum  depth  of  the  lake  since  the  model  does  not  take  into 
account  the  proper  boundary  conditions  around  them.  So,  if  the  minimum  or 
maximum  lake  depths  change,  RPARM(4)  (and  the  island  depths)  and  RPARM(5)  must 
reflect  these  changes.  At  this  point,  the  new  LAKEBATH.DAT  file  can  be 
assembled.  Note  that  lake  depths  are  read  from  the  file  starting  with  the 
bottom  row  (left  to  right)  in  the  lake  and  going  up,  so  they  must  be  set  up  in 
that  order  within  the  file. 

Finally,  the  shore  limits  (IGRIUBO,  IGRILBQ,  IGRUBlQ,  IGRLB1  () )  must 
be  established  based"  upon  the  grids  having  assigned  depths.  This  means  that 
the  new  shore  limits,  LGRIDX,  NGRIDX  and  DXL  must  be  changed  in  LDETR.GEO. 

IV. 3  Stream  Function  File  (LAKEINIT.PS!) 

Now  that  the  grids  containing  the  depths  are  known,  the  stream  functions 
can  be  assigned.  If  the  grid  size  was  not  changed,  the  procedure  given  here 
could  be  used  to  set  up  new  boundary  conditions  in  the  lake. 

The  first  step  is  to  select  the  total  discharge  at  which  the  file  will  be 
set  (Figure  19  was  set  for  201,323  cfs,  numbers  shown  are  rounded  off)  and 
locate  the  grids  containing  the  discharge  points.  Then,  every  grid  on  the 
boundary  of  the  lake  containing  a  depth  other  than  zero  (0)  will  be  assigned  a 
stream  function  value.  The  easiest  way  to  choose  what  number  and  where  to 
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start  is  to  take  half  the  total  discharge  magnitude  (100661.5  cfs  in  Figure 
19),  give  it  a  positive  sign,  and  assign  that  number  at  the  lower  side  of  the 
mouth  of  the  Detroit  River.  Then  subtract  discharges  from  this  number  from 
the  subsequent  discharge  points  above  when  going  from  one  grid  to  the  next  and 
assign  the  result  to  the  corresponding  grid.  When  the  top  of  the  mouth  to  the 
Detroit  River  is  reached,  the  stream  function  value  should  be  the  same 
magnitude  as  at  the  lower  side  of  the  mouth  but  negative  in  sign  (-100,661.5 
cfs  in  Figure  19).  Proceeding  counterclockwise  around  the  lake,  the  stream 
function  will  stay  constant  until  the  next  discharge  point  is  encountered  and 
the  appropriate  value  recorded  for  that  grid.  Finally,  all  grids  within  the 
lake  are  assigned  interpolated  values  between  the  boundaries. 

According  to  the  definiton  of  a  grid  i,j  as  shown  in  Figure  3,  it  is  now 
possible  to  complete  the  assignment  of  stream  functions  to  the  additional 
grids  mentioned  earlier.  Every  grid  i,j  in  the  lake  must  hav<  a  stream 
function  at  every  corner  to  apply  the  second  order  differencing  technique. 
The  only  way  for  all  four  corners  to  have  stream  function  values  is  for 
adjacent  grid  boxes  to  have  stream  functions.  By  starting  at  any  boundary 
grid  and  proceeding  around  the  lake,  each  grid  with  an  assigned  depth  is 
checked  to  see  if  all  four  corners  will  have  assigned  stream  functions.  If 
not,  the  additional  boxes  required  to  fill  the  need  are  assigned  a  stream 
function  (of  the  same  numerical  value  as  the  box  which  was  checked.)  Upon 
completion  of  this  step,  all  grids  which  require  a  stream  function  value 
should  have  one  except  the  land  grids.  These  are  assigned  the  number  SPVAL. 

The  LAKEINIT. PSI  file  can  now  be  set  up.  Again,  the  numbers  are  read  in 
starting  from  the  bottom  row  (left  to  right)  in  the  lake  array  and  proceed  up 
to  the  highest  row.  Extreme  caution  is  advised  when  typing  numbers  since  an 
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error  could  cause  instability  in  the  computations. 


IV. 4  Calculating  Stream  Function  Values 

Simple  hand  calculations  do  not  give  accurate  interior  stream  function 
values.  A  program  was  set  up  to  accurately  determine  the  stream  functions  at 
the  desired  total  discharge.  The  program  listing  (PSISST.F)  for  calculating 
stream  function  values  is  given  in  Appendix  III.  This  program  computes  the 
steady  state  stream  function  values  for  the  given  total  discharge  and  boundary 
condition  using  the  unsteady  finite  difference  scheme.  The  input  files 

i 

required  to  run  the  program  are  LAKEBATH.DAT,  LAKEINIT.PSI  and  LAKEWIND.DAT. 
LAKEINIT.PSI  is  the  file  just  created.  LAKEWIND.DAT  is  the  meteorological 
data  file  with  all  wind  speeds  set  to  2ero  (0).  LAKEBATH.DAT  is  the  same  as 
that  detailed  in  Chapter  III  and  described  (if  revised  for  new  grid  size)  in 
this  chapter  with  the  addition  of  five  (5)  more  variables  added  to  Card  3 
after  the  time  step  DT.  A  typical  LAKEBATH.DAT  and  LAKEWIND.DAT  file  is  shown 
in  Figure  21.  The  5  added  variables  are: 


/  Variable  /  Type  and  /  Column  / 
Name  Length  Number 


Definition 


/ 


TT 

G8.2 

9-16 

total  time  to  run  program,  suggest  using 
1500  hours 

RWD 

G8.2 

17-24 

reference  water  level  for  depths,  571.71  if 
depths  taken  off  of  Chart  14850 

CLWL 

G8.2 

25-32 

current  lake  water  level  corresponding  to 
current  discharge  TLKQ 

TLKQ 

G8.0 

33-40 

total  lake  discharge  at  CLWL 

RLKQ 

G8.0 

41-48 

reference  discharge  which  was  used  when 
setting  up  the  boundary  stream  function 
values 
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Figure  21  Typical  LAKEBATH.DAT  and  LAKEWIND.DAT  files 
for  creating  an  initial  stream  function  file 
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NOTE:  TLKQ  will  become  RLKQ  at  the  end  of  program  execution.  This  value  and 
RWD  must  be  inserted  into  subroutines  RLID  and  PARTIC  (DATA  statement 
for  RLKQ  and  RWD)  prior  to  using  the  new  files  in  the  oil  spill 
simulation.  The  output  from  the  program  will  be  a  stabilized  stream 
function  array  stored  in  a  file  named  STREAM.DAT.  This  is  the  file 
which  will  be  used  as  input  to  the  oil  spill  simulation  model  but  under 
the  file  name  LAKEINIT.PS! . 
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CHAPTER  V 


MODEL  OUTPUT 


The  amount  of  output  generated  is  governed  by  several  parameters  and 
subroutines.  The  option  number  assigned  to  the  parameter  determines  whether 
or  not  a  specific  portion  of  output  will  be  generated.  The  following  table 
summarizes  these  parameters  and  their  functions: 


■ 


Parameter 

Yes 

No 

Function 

I0PT1 

1 

0 

Call  subroutine  PRINT  to  write  fixed 

geometry  of  river  to  file  OILPRT.OUT 

I0PT2 

1 

0 

Write  location  and  magnitude  of  streamtube 
velocities  to  file  VEL3TR.0UT  and  depth- 
averaged  grid  velocities  to  VELCAR.OUT 

I0PT3 

1 

0 

Write  locations  of  oil  particles  to 

LDETRSP. OUT 

I0PT4 

1 

0 

Call  subroutine  PLOTNU  to  write  number  plot 
of  particle  locations 

INDPRN 

1 

0 

Call  subroutine  PGPARM  to  write  lake  model 
input  data  and  subroutine  PRNT  to  write 
lake  depths,  lake  stream  functions,  and 

lake  ice  region  locations 

V.l  Sample  Output 


The  following  figures  represent  selected  output  and  graphics  for  two 
sample  runs  of  the  lake-to-river  oil  spill  model.  The  first  sample  run 
(Figures  22  through  27)  is  for  an  instantaneous  spill  near  the  lake  river 
interface.  Figure  27  shows  the  graphical  output  that  corresponds  to  results 
in  Figs.  24  to  26.  The  second  case  (Figures  28  through  39)  is  on  the 
opposite  side  of  Lake  St.  Clair  where  the  St.  Clair  River  discharges  into  the 
lake.  The  graphical  plots  are  not  a  direct  form  of  output  from  the  oil  spill 
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Lake  St.  Clair  ar<d  Detroit  River 


nmmummummt 
I  INSTANTANEOUS  SPILL  t 
I  AT  t 

I  -7999, ,  42000.  I 

tmmtmtmmmmt 


SIMULATION  PERIOD  =  6.0  Mrs 


Characteristics  of  spill 

No,  of  particles  :  500 

Oil  spilled  ;  10000.  gals  of  Fuel  Oil  No.  2 

DT  for  spill  situlation  :  900.  Secs. 

Specific  gravity  of  oil  :  0,84  (API  index  =  37.0) 

Kineaatic  Visco.  of  Nater  : 0. 1411E-04  sg  ft/sec 
Surafce  Tension  ;0, 2060E-02  lbs/ft 


Spreading  Coefficients 
K2i  K2v  K2t  clO  c20  c30 

1.14  0.98  1.60  1.39  1,39  1.43 

Nolar  voluee  ;0.7063E-02  cu  ft/»ol 

Solubility  of  fresh  oil  sO. 1873E-02  Ibs/cu  ft 
Viscosity  of  Oil  ;  q.34  lbs/f t-sec 

Nanning  s  Roughness  of  Ice  :  0.035 

Surface  Diffusion 

LAKE  -  Default  foraulation  is  used 
RIVER-  Default  foraulation  is  used 


API  option  is  not  selected  .  Evap.  constants  are  C  =  7.88  TO  =  465,0 
Tiae  step  for  river  flow  coaputation  =  6,00Hrs 


Figure  22  Description  of  spill  type  and  location, 
oil  properties,  and  various  coefficients 
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T*°n  Mater  Conditions  exist  in  the  river 


Flow  and 

Discharge 

Conditions 

Pranrh 

Stage  (ft? 

1 

184160. 

573.72 

i. 

149190. 

573.72 

3 

34970. 

573.69 

4 

184150. 

573.61 

5 

63340. 

573.61 

6 

120810. 

573.61 

7 

184140. 

573.46 

8 

184140. 

573.  14 

9 

184140. 

573.01 

10 

153050. 

573.01 

11 

153050. 

572.67 

12 

115400. 

■  572.67  • 

13 

31070. 

573.01 

14 

146470. 

572.31 

15 

37640. 

572.67 

16 

37640. 

571.97 

Open  Mater  conditions  exist  in  the  lake 


Meteorological  Station  Data  Used  in  Lake  Circulation  Model 


Ti«e 

Lat. 

Long. 

Height 

T-air 

T-H20 

Mind 

zx 

1/1 

deg 

deg 

ft 

F 

F 

eph 

deg 

0.0 

42.42 

82.42 

30.0 

50.0 

34.  C 

">  r\ 

LlV 

O.C 

3.0 

42.42 

82.42 

30.0 

50.0 

54.0 

2.0 

0.0 

Figure  23  Stage  and  discharges  at  river 

branches  and  meteorological  data 
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Tifle  =  0.25  Hrs  --  Wind  ;sag=  2.0  «ph,  dir  =  0.0  deg  --  Air  Te»p=  50.0  F 

Spill  center  after  advection=  -7378.,  41536.  (ft! 

Voluee  per  particle  =  20,000  gals 


Slick  condition  during  this  ti«e  step 

Slick  information  by  pie  !  strip 
Pie  No,  of  particles  dean  radius(ft) 


1 

59 

90. 

n 

i. 

77 

93, 

3 

60 

90, 

4 

53 

89. 

c 

J 

57 

90. 

6 

44 

88. 

7 

61 

91. 

8 

49 

90. 

Slick  condition  at  the  end  of  this  tise  step 
Fraction  Evaporated  =  .60670E-03 

Amount  Dissolved  (gals)  :  This  Step  *  . 27559E-01  Total  =  .27559E-01 


Figure  24  Spill  information  at  t  =  15  mins 
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Tise  =  1,00  Hr s  --  Wind  ;*ag=  2.0  »ph,  dir  =  0.0  deg  --  Air  Te*p=  50.0  F 

Spill  center  after  advection=  -5518.,  40153.  (ft) 

Voluae  per  particle  -  19.878  gals 

Slick  condition  during  this  tise  step 


Slick  in 

foraation  by  pie 

/  strip 

Pie  No. 

of  oartides  Mean  radius(ft) 

1 

64 

291. 

2 

66 

281. 

.j 

58 

262. 

4 

62 

280. 

5 

5? 

276. 

6 

56 

263. 

7 

71 

274. 

8 

53 

288. 

Slick  condition  at  the  end  of  this  ti*e  step 


Fraction  Fyaporated  =  .14277E-01 

Anount  Dissolved  (gals)  !  This  Step  1  .37287  Total  =  .64506 


Figure  25  Spill  Information  at  t  =  1  hr 
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Ti*e  =  4.00  Hrs  --  Kind  :tag=  2.0  *ph,  dir  =  0.0  deg  --  Air  Te«p=  50.0  F 

Spill  center  after  advection=  3168.,  32298.  (ft) 

Voluee  per  particle  =  15.189  gals 


Slick  condition  during 

thi  s 

tise  step 

Slick 

information 

by  pie  /  strip 

Strip 

Particles 

-Le(ft)  *■ 

-aean 

Le(ft) 

-124 

J 

-237. 

0. 

0. 

-123 

6 

-111. 

0. 

79. 

-122 

12 

-64. 

0. 

94. 

-121 

42 

-182. 

0. 

65. 

-120 

18 

-108. 

0. 

76, 

-119 

34 

-86. 

0. 

120. 

-118 

19 

-76. 

0. 

94. 

-117 

34 

-134. 

0. 

80. 

-116 

57 

-73. 

0. 

97. 

-115 

106 

-88. 

0. 

88. 

-114 

34 

-57. 

0. 

164. 

-113 

38 

-142. 

0. 

102. 

-112 

47 

-154. 

0. 

89. 

-111 

13 

-99. 

0. 

95. 

-110 

25 

-48. 

0. 

229. 

-109 

12 

-72. 

0, 

227. 

Slick  condition  at  the  end  of  this  time  step 
Fraction  Evaporated  =  .24958 

Asount  Dissolved  (gals)  :  This  Step  ~  2.4525  Total  =  27.238 


Figure  26  Spill  information  at  t  =  4  hrs 
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d  Detroi t  River 


Lake  St,  Clair  and  Detroit  River 

tmmmmmmmm 

t  CONTINUOUS  SPILL  < 

I  AT  I 

t  -91000.,  51900.  t 

t  FOR  60.  *in.  t 

nmnnnmmnmm 


SIMULATION  PERIOD  =  6.0  Hrs 


Characteristics  of  spill 


No.  of  particles 
Oil  spilled 

DT  Tor  spill  simulation 
Specific  gravity  of  oil 
Kineeatic  Visco,  of  Nater 
Surafce  Tension 


500 

10000.  gals  of  Fuel  Oil  No.  2 
900.  Secs. 

0.84  (API  index  =  37.0) 

0. 1411E-04  sq  ft/sec 
0.2060E-02  lbs/ft 


Spreading  Coefficients 
K2i  K2v  K2t  dO  c20  c30 

1.14  0.98  1.60  1.39  1.39  1.43 

Molar  volume  : 0. 7063E-02  cu  ft/sol 

Solubility  of  fresh  oil  :0. 1873E-02  Ibs/cu  ft 
Viscosity  of  Oil  ;  0.84  Ibs/ft-sec 

Manning  s  Roughness  of  Ice  :  0.035 

Surface  Diffusion 

LAf'E  -  Default  forsulation  is  used 
RIVER-  Default  formulation  is  used 


API  option  is  not  selected  .  Evap.  constants  are  C  =  7.88  TO  =  465.0 
Time  step  for  river  flow  computation  -  i.OOHrs 


Figure  28  Description  of  spill  type  and  location, 
oil  properties  and  various  coefficients 
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Open  Water  Conditions  exist  in  the  river 


Flow  and  Discharge  Conditions  in  the  River 


Branch 

6  ( c  f  5 ) 

Stage  (ft) 

1 

169740. 

573.26 

2 

132690. 

573.26 

3 

37050. 

573.20 

4 

169740. 

573.10 

5 

51850. 

573.10 

6 

117890. 

573.10 

7 

169750. 

573.00 

8 

169750, 

572.78 

9 

169760. 

572.63  • 

10 

142660. 

572.63 

11 

142660. 

577.51 

12 

108140. 

572.51 

13 

27100. 

572.62 

14 

135240. 

572.29 

15 

34520. 

572.51 

16 

34530. 

571.98 

No.  of  Ice  Covered  Regions  in  the  Lake  =  I 
Region  fro#  X, V  Grid  to  X, V  Grid  Ice  Thic(ft) 
1  15,  7  15,  20  0.10 


Meteorological  Station  Data  Used  in  Lake  Circulation  Model 


Ti«e 

Lat. 

Long. 

Height 

T-air 

T-H20 

Wind 

hrs 

deg 

deg 

ft 

F 

F 

aph 

deg 

0.0 

42.42 

82.42 

30.0 

40.0 

32.0 

4,0 

0.0 

3.0 

42.42 

82.42 

30.0 

40.0 

32.0 

4.0 

0.0 

Figure  29  Stage  and  Discharge  at  river  branches, 
and  meteorological  data 
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Ti*e  =  1.00  Hrs  —  Hind  ;*ag=  4.0  «ph,  dir  =  0.0  deg  —  Air  Te*p=  40.0  F 

Spill  center  after  advection=  -90336,,  50086.  (ft) 

Volume  per  particle  =  19.145  gals 


Slick  condition  during  this  time  step 


Slick 

information  by  pie 

!  strip 

Strip 

Particles 

-Le(ft) 

X-aean 

Le(f 

56 

23 

-36. 

0. 

126. 

57 

64 

-78. 

0. 

132. 

58 

67 

-101. 

0. 

98. 

59 

63 

-95. 

0. 

100. 

•60 

63 

-93. 

0. 

63, 

61' 

67 

-76, 

0. 

70, 

62 

64 

-130. 

0. 

0, 

63 

65 

-50, 

0. 

41. 

64 

24 

-37, 

0. 

32. 

Slick  condition  at  the  end  of  this  tise  step 
Fraction  Evaporated  =  .64919E-01 

Amount  Dissolved  (gals)  :  This  Step  =  1.1728  Total  =  2.9714 


Figure  30  Spill  information  at  t  = 


1  hr 
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Ti.te  =  2.00  Hrs  —  Wind  ;»ag=  4.0  sph,  dir  =  0,0  deg  —  Air  Teap=  40.0  F 

Spill  center  after  advection^  -88782.,  46501.  (ft) 

Volute  per  particle  =  17.378  gals 


4 

Slick  condition  during  this  tine  step 


Slick  inforaation  by  pie  /  strip 


Strip 

Particles 

-Le(ft)  l 

-aean 

Le(Tt) 

27 

66 

-42, 

0. 

121. 

28 

51 

-80. 

0, 

116. 

28 

65 

-89. 

0. 

119. 

30 

54 

-176. 

0. 

52, 

31 

68 

-101. 

o.  • 

116, 

32 

56 

-103. 

0. 

101. 

77 

68 

-84. 

0. 

95. 

34 

66 

-93. 

0. 

82. 

35 

5 

-101. 

0. 

43. 

Slick  condition  at  the  end  c*  this  time  step 
Fraction  Evaporated  -  .14706 

Aaount  Dissolved  (gals'  ;  This  Step  =  1.5688  Total  1  9.2324 


Figure  32  Spill  information  at  t  = 
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2  hrs 


Tiae  =  3.00  Hrs  —  Mind  ;sag=  4.0  sph,  dir  ~  0.0  deg  —  Air  Te«p=  40.0  F 

Spill  center  after  advection=  -86307. ,  4363?,  (ft) 

Voluee  per  particle  =  16.185  gals 

Slick  condition  during  this  tue  step 


Slick 

intonation  by  pie  / 

strip 

Strip 

Particles 

-Le(ft) 

Y-iean 

Le(ft) 

-47 

21 

-123. 

0. 

80. 

-46 

72 

-124. 

0. 

73. 

-45 

77 

-97. 

0. 

93. 

-44 

90 

-117. 

•  0. 

99. 

-43 

70 

-128. 

0. 

92. 

-42 

75 

-118. 

0. 

196. 

-41 

58 

-113. 

0. 

202. 

-40 

37 

-66, 

0, 

96, 

Slick  condition  at  the  end  of  this  tise  step 
Fraction  Evaporated  =  .20031 

Amount  Dissolved  (gals'  :  This  Step  -  1,4632  Total  =  15.505 


Figure  34  Spill  information  at  t  =  3  hrs 


100 


Figure  35  Plot  of  slick  location  corresponding  to  Figure  34. 

Figure  ranges  from  -104,000  to  -68,000  in  x-direction 
and  31,820  to  58,000  in  the  y-direction. 


Ti ae  =  4,00  Hrs  --  Mind  ;»ag=  4.0  «ph,  dir  =  0.0  deg  --  Air  Te#p=  40.0  F 

Spill  center  after  advection=  -8392?.,  42445.  (ft) 

Voluse  per  particle  =  15.510  gals 

Slick  condition  during  this  tiie  step 


Slick 

infor*ation  by  pie  /  strip 

Pie 

No.  of  particles 

Mean  radius <ft ) 

1 

42 

278. 

2 

16 

176. 

3 

35 

395. 

4 

102 

578. 

5 

13 

237. 

6 

24 

161. 

7 

59 

286. 

8 

179 

437. 

Slick  condition  at  the  end  of  this  tiie  step 
Fraction  Evaporated  =  .22655 

A*ount  Dissolved  (gals)  :  This  Step  =  .88386  Total  =  20.118 


Figure  36  Spill  information  at  t  =  4  hrs 


Figure  37  Plot  of  slick  location  corresponding  to  Figure  36. 

Figure  ranges  from  -104,000  to  -68,000  in  x-direction 
and  31,820  to  58,000  in  the  y-direction 


Tine  =  5.00  Hrs  —  Nind  :sag=  4.0  #ph,  dir  -  0.0  deg  --  Air  Teap=  40.0  f 

Spill  center  after  advection-  -83634.,  42312.  (ft) 

Voluae  per  particle  =  15.407  gals 


Slick  condition  during  this  tiae  step 


Slick 

inforaation  by  pie 

/  strip 

Pie 

No.  of  particles  Mean  radius(ft) 

1 

61 

225, 

2 

39 

167. 

3 

63 

226. 

4 

92 

253. 

5 

5B 

208.  - 

6 

30  • 

153. 

7 

78 

235. 

8 

75 

249. 

Slick  condition  at  the  end  of  this  tise  step 
Fraction  Evaporated  =  .22757 

Aaount  Dissolved  (gals)  ;  This  Step  =  .19960  Total  =  21.146 


Figure  38  Spill  information  at  t  = 


5  hrs 
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Figure  39  Plot  of  slick  location  corresponding  to  Figure  38. 

Figure  ranges  from  -104,000  to  -68,000  in  x-direction 


model.  Rathef,  they  are  indirectly  generated  from  the  shoreline  data  in  file 
LDETR. SHO  and  the  particle  locations  in  file  LDETRSP.OUT.  The  output  should 
be  self-explanatory  with  the  aid  of  the  figure  captions. 
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Figure  41  Index  to  Figures  42  through  46 


I 

I 

I  Figure  42  Velocity  distribution  in  Detroit  River 

corresponding  to  stage/discharge  in  Figure  23 

I 
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Figure  44  Velocity  distribution  in  Detroit  River 

corresponding  to  stage/discharge  in  Figure  23 
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0  _ 5 . Seal*  of  VELOCrrr 


Figure  45 


Velocity  distribution  in  Detroit 
corresponding  to  stage/discharge 


River 
in  Figure 
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0  _ 5 . ScoU  of  VELOCITY 


Figure  46  Velocity  distribution  in  Detroit  River 

corresponding  to  stage/discharge  in  Figure  23 
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Distance  Is  measured  from  Lover  Left  Bank. 


IS  Distancc(ft)  24  607  1005  1208  1388  1598  1684  1862  1891  2194  2204 

Daptb  (ft)  20  22  29  10  33  27  20  13  7  6  0 
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The  program  listing  for  LROSS  and  subprograms  are  presented  in  this 


appendix.  The  program  listing  is  arranged  in  the  following  sequence. 


Main  Program 
LROSS1 2 3 


LROSS  Subroutines1 

3 

GLERL  Subroutines 

ADVECT 

INIT 

BOUNDR 

OUTP 

DISOLU 

PARTI C 

EVAPOR 

PGPARM 

NDCONV 

PRNT 

ORIENT 

RGRID 

PLOTNU 

RLID 

PRELSE 

UPDATE 

PRINT1 

UZL 

SPRDAX 

SPRD1D 

GLERL  Function  Subprograms 

VELD IS 

RLAT 

RAU 

2 

Systems  Subroutines 

UZ 

GAUSS 

XDIST 

RANDU 

YDIST 

1  -  These  programs  were  developed  for  the  oilspill  model  at  Clarkson 

University. 

2  -  These  programs  were  available  at  Clarkson  University  computing  system. 

The  source  code  is  provided  here  for  completeness.  Other  systems  may  sub¬ 
stitute  these  with  appropriate  subprograms. 

3  -  These  subroutines/functions  were  originally  developed  at  GLERL,  Ann  Arbor 

MI.  They  were  slightly  modified  to  match  with  needs  of  the  oilspill  pro¬ 
grams  . 
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C 

Q  ********#*$*************************************************************** 

C  * 

C  *  Lake  &  River  Oil  Slick  Simulation  Model  ..L-ROSS.. 

C  * 

C  *  Last  Date  of  Revision  October  14,  1986 
C  * 

C  *  Developed  by  the  Department  of  Civil  and  Environmental  Engineering 
C  *  Clarkson  University,  Potsdam,  New  York  13676 

C  *  under  the  support  of  the  Detroit  District,  U.  S.  Army  Corps  of 

C  *  Engineers,  through  the  Cold  Regions  Research  and  Engineering 

C  *  Laboratory,  Hanover,  N.H. 

C  * . - . - . . . - . . . 

C  *  This  program  is  furnished  by  the  Government  and  is  accepted  and  used 
C  *  by  the  recipient  upon  the  express  understanding  that 
C  *  the  United  States  Government  makes  no  warranties,  express 

C  *  or  implied,  concerning  the  accuracy,  completeness,  reliability, 

C  *  usability,  or  suitability  for  any  particular  purpose  of  the 

C  *  information  and  data  contained  in  this  program  or  furnished  in 

C  *  connection  therewith,  and  the  United  States  Government  shall  be  under 

C  *  no  liability  whatsoever  to  any  person  by  reason  of  any  use  made 

C  *  thereof.  The  program  herein  belongs  to  the  Government.  Therefore, 

C  *  the  recipient  further  agrees  not  to  assert  any  proprietary  rights 

C  *  therein  or  to  represent  this  program  to  anyone  as  other  than  a 
C  *  Government  program. 

C  * . - . - . 

c  * 

£  ************************************************************************** 

c 

DIMENSION  IPARTX(5),IPARTY(5),HLIFE(l0),IDUM(20) 

COMPLEX  VSTRM(99 , 1 6),CORDV(99 , 1 6),VCAR(8000),CORDLB(99) 

COMPLEX  SPCEN,PARTCL(1000),VWIND,VDRIFT 
COMPLEX  SPCENO 

COMMON  /VEL/VSTRM,CORDV,CORDLB,Q(30),WL(30),TICE(99,20), 

$  YWnX99,20),ZC99,20),ZlX99),NSLSCrC99),SCrANG{99), 

$  LCSTSQ(30),NSTUBE(99),NUMCON(99),NFIRCO(99),NSECO(99),KINTM 
COMMON  /VA/  VCAR , VWIND , VDREFT 

COMMON  /VASB/IGRILB(300),IGRIUB(300),IGRIJBl(300),IGRUBl(300) 

COMMON  /ASB/SPCEN,PARTCL,NPTCL,NHTTB,IHrrBCl000),TYPBNDC4,300) 
COMMON  /BLOCK7 / SPGOIL*ANIU , SIGMA, AK2 1 *AK2 V, AK2T, 

$  VOLPAR,VOLPIE(8),SLICKR(8) 

COMMON  /BLOCK8/AKC10^AKC20,AKC30 
COMMON  /SE/FEVPl  ,FEVP2  ,CEVP,TOEVP 
COMMON  /V /IZRBX(  1 00) ,  IZRBY(  1 00),  NZRVB 
COMMON  /ICE/ZWND(40,40),ZLKICE(20),NICEXl(20),NICEYlC20), 

$  NICEX2(20),NICEY2(20),IPOS1(20),IPOS2(20),AMIUO,ANICE, 

$  SPAICE.NICERG  .LICERG 

COMMON  /SO/  IMOVIN(lOOO),YSHIFlXlOOO),NMOVIN,SSHIFT 
COMMON  /GRIDS/  DXL,  DXR,  LGRIDX,  NGRIDX,  IRGRID,  BEGLK 
COMMON  /LKMD/  D(40,40),  S(40,40),  U(40,40),  V(40,40) 

INTEGER  UFSTPS.OSTPS 

CHARACTER  *4  FULL, PART, OPEN, STCL.DETR.STMA,' WORD 
CHARACTER  *12  FINAME 
CHARACTER  *4  TEXTtll),FUELTP(4) 

CHARACTER  *42  SLINFO(3) 

DATA  FULL, PART, OPEN/TULL’, 'PART, ’OPEN’/ 
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DATA  STCL,DETR,STMA/’STCL’,’DETR’,’STMA’/ 

DATA  HUFE/0.033,.5,1.,6.,12.,18.,24.,48.,48.,8760./ 

DATA  SUNFOCl)/’  Pie  No.  of  particles  Mean  radius(ft)’/ 

DATA  SLENFOO)/’  Strip  Particles  -Le(ft)  Y-mean  Le(ft)7 
DATA  SUNF(X3)/’  Strip  Particles  -Le(ft)  X-mean  Le(ft)7 
OPEN(l5,FILE-’lross.fnm0 
REWIND  15 
DO  2222  IFILES-1,13 
READ(15, 1 1 1  l)lUNTr,FINAME 
OPEN(IUNIT,FILE-FINAME) 

REWIND  IUNTT 
2222  CONTINUE 

1111  FORMAT(I3  ,A1 2) 

C 

C  Explanation  of  Variables 
C 

C  —  Single  Varibles 

C  The  next  four  variables  are  for  controlling  output.  They  can 

C  have  the  values  O-NO  ,  1-YES 

C 

C  IOPT1  -  Fixed  data  like  Geometry  and  Bank  (shore)  conditions 
C  IOPT2  -  Computed  Vleocities  for  plotting 

C  IOPT3  -  Location  of  particles  for  plotting 

C  IOPT4  -  Number  PlotCparticle  distribution)  on  print  ► 

C 

C  ISPTYP  -  Spill  type  O-Instantaneous,  1 -Continuous.  Computed  by 
C  model  based  on  :  if  SPLTTM  >  0.5*SPJLDT  ISPTYP=1  else=0 

C 

C  FEVP1  -  Fraction  evaporated  at  previous  time  step 

C  FEVP2  -  Fraction  evaporated  at  present  time  step 

C 

C  NBRNCH  -  No.  of  Branches  in  the  1-D  Flow  Model 

C  NGRIDX  -  Total  No.  of  grid  boxes  in  X-direction 

C 

C  TOTDIS  -  Total  amouunt  of  Dissolved  Oil  (gms) 

C 

C  UFDT  -  1-D  Model  time  step(hrs) 

C  UFSTPS  -  No.  of  1-D  model  steps 

C  OSTPS  -  No.  of  Oilspill  steps  per  UFET 

C 

C  —  Some  important  variable  names  used  for  intermediate  computations 
C  AIY  -  area  of  the  IYth  Trapezoid 

C  PERI  -  wetted  perimeter  by  IYth  Trapezoid 

C  HR  -  hydraulic  radius  of  IYth  trapezoid 

C 

C  —  One  Dimensional  Arrays 

C  IGRILBCl)  -  y-dir  grid  box  number  of  lower  river  boundary  column  I 

C  IGRIUB(I)  -  y-dir  grid  box  number  of  upper  river  boundary  column  I 

C  LCSTSQ(I)  -  last  section  number  of  branch  I 

C  NSLSCI(I)  -  No.  of  slices  of  data  for  section  I 

C  NSTUBECI)  -  No.  of  streamtubes  for  section  I 

C  NUMCON(I)  -  Condition  Number  (see  text)  for  section  I 
C  NFIRCO(l)  -  Next  section  first  connecting  to  section  I 

C  Q(I)  -  Discharge  in  the  Ith  Branch 

C  SCTANGOO  -  angle  Ith  section  makes  with  X-direction 

C  WL(I)  -  water  level  of  upstream  of  branch  I 
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C  ZD(I)  -  reference  level  from  datum  for  section  I  at  which  Z’s 
C  are  evaluated 

C 

C  --  Two  Dimensional  Arrays 

C  TICE(I,J)  -  Equivalent  ice  thickness  of  Jth  vertical  in  1th  section 

C  YWID(I,J)  -  Distance  from  lower  bank,  of  river  to  the  Jth  vertical 

C  in  Ith  section 

C  Z(I,J)  -  Height  of  Jth  vertical  in  Ith  section 
C 

C  --  Complex  Variables  (these  store  X- component  as  real  part  and 
C  Y- component  as  imaginary  part) 

C  CORDLB(I)  -  lower  bank,  co-ords  of  the  Ith  section 

C  CORDV(I,J)-  co-ords  at  which  VSTRM(I,J)  is  acting 

C  VSTRM(I,J)-  stream  velocity  of  the  Ith  section  and  Jth  streamtube 

C  VCAR(I)  -  velocity  in  the  cartesian  box  grid  system  of  box  I 

C 

C  —  Variables  derived  from  addition  of  lake 
CD  -  depths  in  lake  grid  boxes 

C  S  -  stream  function  in  lake  grid  boxes 

C  U  -  x-velocity  in  lake  grid  boxes 

C  V  -  y-velocity  in  lake  grid  boxes 

C  DXL  -  size  of  lake  grid 

C  DXR  -  size  of  river  grid 

C  LGRIDX  -  number  of  x- grids  along  lake 

C  IRGRID  -  number  of  x- grids  along  river 

C  NGRIDX  -  total  number  of  combined  river  and  lake  x-grid  boxes 

C  BEGLK.  -  x- coordinate  of  left-most  side  of  lake  (negative  value) 

C  ELVCAR  -  total  number  of  lake  grids  containing  velocities 

C  LICERG  -  number  of  ice  regions  only  in  lake 

C  ZLKICE(I)  -  ice  thickness  in  corresponding  lake  ice  region 
C  . - . - 

c 

READd , 6 50)WORD,TEXT 

Read  the  lake  and  river  grid  control  parameters 

READ(l, *)NBRNCH,LGRIDX,  NGRIDX,  DXL,  DXR.KINTM.BEGLK 
REAlXl  ,*XLCSTSQ(I),I=1  .NBRNCH) 

IRGRID  =  NGRIDX  -  LGRIDX 
IS2  -  LCSTSQ(NBRNCH)+  1 

Read  river  cross  section  and  geometry  data 

DO  100  1=1,  IS2 

REAiXl,*)J,CORDLB(l),SCrANG(l),NSTUBE(l),NUMCON(l),NFIRCO(l) 

$  ,NSEC0(I) 

EF(J.NE.I)WRITE(*,700) 

C  SCTANGO)  =  SCTANG(I)*3. 1415/180. 

100  CONTINUE 

DO  110  1=1,  IS2 

READd ,  *)J,NSLSCIXI),ZD(I) 
lKJ.NE.I)WRITE(*,7ia) 

NNN-NSLSCltO+l 

READd  ,*XYWID(I,  J),Z(I,J),  J-2.NNN) 

1 10  CONTINUE 

DO  120  1=1, NGRIDX 
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READ(  1 ,  *)J ,  IGRILB(I),  IGRIUB(l),IGRLBl(l),IGRUBl(I) 
n<i.NE.j)WRrre(*,72o) 

120  CONTINUE 

C 

C  Read  the  I,J  values  of  Grid  boxes  in  which  velocity  -0.0 
C 

readCi  ,*)nzrvb 

IKNZRVB.EQ.OXjOTO  140 
EKNZRVB.GT.100)WRITEC*(730) 

IF(NZRVB.GT.  100)NZRVB-100 
READ(l  ,*XlZRBXa),IZRBYCD,I-l,NZRVB) 

c 

C  Read  the  spill  volume  and  spill  location 
C 

140  READC12.650)  FUELTP 

REAlXl2,*)TOTIME,IPyrERY,IOPTl,IOPT2,IOPT3)IOPT4.SPLTTM, 

$  DIFFUL.DIFFUR 

READ(l2,*)NTOTAL,SPVOL,SPEJDT,SPGOILfANIU,SIGMA^K2I^K2V^K2T 
S  ,AKC10,AKC20>AKC30 
C 

C  Check  for  instantaneous  or  continuous  spill 
C 

ISPTYP  -  0 

IF(SPLTIM.GT.0.5*SPILDT)ISPTYP-1 

READ(5,*)ANICE,AMUNI 

C 

C  SPVOL  is  U.S.  gallons.  VOLPAR  is  cu  ft.  of  volume  per  particle 
C 

SPLRAT  -  0.13368*SPVOL/SPLTIM 
VOLPAR  -  0.13368*SPVOL/NT0TAL 
VZERO  -  SPVOL*3.7850E-03 
API  -  0.0 

REAlXl2,*)SPX,SPY,VMUNT,SOLUNI,CEVP,TOEVP 

SOLBLT  -  SOLUNI‘1601 8.453 

VMOL  -  VMUNI‘0.02831682 

AMIUO  -  AMUNI*14.88162 

TOUNI  -  T0EVP*9./5.0 

IF(TOEVP.LT.  1 .0)API  -  141.5/SPGOIL  -  131.5 
APITEM  -  141.5/SPGOIL  -131.5 
SPCENO  -  CMPLXCSPX.SPY) 

C 

C  Check  if  the  spill  co-ordinates  are  in  land 
C  (This  is  a  check  for  input  error) 

C 

IF  (SPX  .GT.  0.0E0)  GOTO  145 
L  -  (SPX-BEGUO/DXL  +  1.0 
M  -  SPY/DXL  +  1.0 
GOTO  155 

145  L  -  SPX/DXR  +  1.0  +  LGRIDX 
M  -  SPY/DXR  +  1.0 

155  IF(M.LT.IGRILBCL).OR.M.GT.IGRIUB(L))GOrIO  150 
IF(IGRLB1(L).EQ.O)GOTO  160 
IF(M.GE.IGRLBl(L).AND.M.LE.IGRUBl(L))GOTO  150 
GOTO  160 

150  Yv  RITEC* ,  800)L,M 

STOP 
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160  CONTINUE 

TTTT-SPLTIM/60 . 

IF(ISPTYP.EQ.l)WRnEC*,810)TEXT,SPCEN0,TnT 

IF*ISPTYP.EQ.0)WRrrE**,820)TEXT,SPCEN0 

WRrnX*,830)TOTIME,NTOTAL,SPVOL,FUELTP,SPILDT,SPGOIL,APITEM 
S  ,ANIU,  SIGMA 

WRITE** ,  840)AK2I,AK2V,AK2T,AKC1  0  ,AKC20,AKC30  ,VMUNI ,  SOLUNI 

WRITEC* ,  8 42)AMUNI  ,ANICE 

WRITEC*,*)  *  Surface  Diffusion’ 

IF(DIFFUL.LT.O.O)WRnEC*,*)’  LAKE  -  Default  formulation  is  used’ 
IFCDIFFUL.GE.0 .0)WRITE(* ,  846)DIFFUL 

!FtolFFUR.LT.O.O)WRITEC*,*)’  RIVER-  Default  formulation  is  used’ 
IF*DIFFUR.GE.O.O)WRITEC*,847)DIFFUR 

846  FORMAT*’  LAKE  -  coeff.  -’,F6.2,’  sq  ft/sec’//) 

847  FORMAT*’  RIVER-  coeff.  -’.F6.2,’  sq  ft/sec’//) 

IFCAPI.lt.  1.)  WRITEC*,  844)CEVP,T0EVP 

843  FORMATC///’  Meteorological  Station  Data  Used  in  Lake  Circulation’ 

$  ,’  Model’ 

$/6X,Time  Lat.  Long.  Height  T-air  T-H20  Wind’/ 

$7X,  *hrs  deg  deg  ft  F  F  mph  deg’/) 

844  FORMAT*//’  API  option  is  not  selected  .  Evap.  constants  are  ', 

$  ’  C-  \F6.2,’  TO-  \F7.l) 

C 

C  Read  boundary  type  information  and  calculate  rejection  rates 
C 

170  READC8,*)K,LFROM,LTO,ICODE 
IF*K.EQ.O)GOTO  190 
AN  -  HLEFE(ICODE)*3600./SPILET 
REJRAT  -  1  -  0.5**Cl./AN) 

DO  180  L-LFROM.LTO 
180  TYPBNDCK,L)-REJRAT 
GOTO  170 
190  CONTINUE 
C 

C  If  continuous  spill,  find  number  of  particles  released  over  time  step 
C 

NSPELS=*SPLTTM+1 .0)/SPILDT 
IF*ISPTYP.EQ.1)NPERDT  -  NTOTAL/NSPILS 
ipCisptyp.eq.  l)GOTO  210 
NPERDT-NTOTAL 
DO  200  I-l.NTOTAL 
200  PARTCUl)  -  SPCENO 
210  CONTINUE 
C 

C  First  set  Vol  of  each  pie=8*one  eighth  of  vol  released  in  SPUDT 
C 

DO  220  1-1,8 

220  VOLPIECl)  -  VOLPAR*NPERDT’ 

C 

C  Set  random  number  generation  seed  DC 
C 

DC-13 

WRITECl  1 ,650)TEXT,FUELTP 

WRITE*  1 1 ,65  l)NTOTAL,SPVOL,SPILDT,SPGOILpU'IIU,SIGMA,VMUNI, SOLUNI 
$  ,AMUNI 
TIMET  -  0. 
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IPARTXCD-REAUSPCENO) 

IPARTVt  1  )-AIMAG(SPCENO) 

WRrreCl  1 , 850)IPARTX(  1  ),IPARTY(  1 ) 

INDX1D  -  0 
NST  -1 

NPTCL  -  NPERJDT 
FEVF1-0. 

FEVP2-0. 

TOTDIS-O. 

NBRP1  -  NBRNCH  +  1 

Read  flow  condition  update  interval 

READ(7,*XJFDT 

WRITE(* ,  845)UFDT 

UFSTPS  -  TOTIMEAJFDT 

OSTPS  -  (UFDT*3600.+1.0)/SPILDT 

DO  340  IUF-1, UFSTPS 

REWIND  3 

REWIND  4 

Read  Data  Created  by  unsteady  Flow  Model 

IPCW0RD.EQ.STCL)IRC0DE-1 
IFCWORD.EQ.DETR)lR  CODE-2 
IF(WORD.EQ.STMA3lRCODE-3 


If  the  numbering  sequence  of  branches  in  oilspill  model  is  the 
same  as  that  of  1-D  model  the  following  3  statements  can  be  used  to 
Read  the  Q  &  WL  data.  In  this  case  subroutine  NDCONV  is  not  needed. 
Subroutine  NDCONV  is  specifically  written  for  reading  Q  &  WL  from 
the  three  1-D  River  models  St.  Clair,  Detroit  and  St.  Mary's 


230 


DO  230  I-1.NBRP1 
READ(7,*)WIj(I),QCI) 
CONTINUE 

CALL  NDC0NV(NBRP1  .IRCODE) 


Read  ice  thickness  information  for  cross  sections 


READ(7 ,  *)1CINF0 
DO  270  I-l.ICINFO 
READ(7,660)IS,WDRD 
NNN-NSLSCltlS)+l 

IFOCINFO.EQ.  1  .AND.WORD.EQ.OPEN)  THEN 
WRrTE(*,234) 

ELSE 

eKi.eq.DwriteC’^ss) 

ENDIF 

IFtWORD.NE.FULLXKHO  250 
READC7,*)FULLTI 
DO  240  K-1.NNN 
TTCE(IS,K)=FULLTI 
240  CONTINUE 

WRITEO , 2 36)IS  .FULLTI 
250  EFCWORD.EQ.PART)  THEN 
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READ(7,*XTICE(IS,J),J=*1,NNN) 

DO  252  J-l.NNN 
EDUM(J)  -  YWIDOSJ) 

252  CONTINUE 

WRTIEC*,237)  IS,(IDUM(J),J-1,NNN) 

WRITE(*,238)  (TICEClS, J), J=1  ,NNN) 

ENDIF 

IFCWORD.NE.OPENXJOTO  270 
DO  260  K-l.NNN 
TICEClS  ,10-0.0 
260  CONTINUE 

270  CONTINUE 
C 

C  Read  ice  region  information  for  spreading  and  advection 
C 

READ(5,*)NICERG,  LICERG 
IF(NICERG.NE.O)THEN 
DO  275  1=1, NICERG 

READ(5,*)NICEXl(l),NICEYl(l),NICEX2(l),NICEY2(l) 

IF  (I  .LE.  LICERG)  READ(5,*)  ZLKICE(I) 

275  CONTINUE 
ENDIF 

ICERGR  -  NICERG  -  LICERG 
LR1  =  LICERG  +  1 

IF(ICERGR .  GT.  0)WRITE(  * , 932)ICERGR  ,(I.  NICEX 1  (I),  N1CEY 1  (I),  NICEX2(I) 

$  ,NICEY2(I),I=LR1, NICERG) 

930  FORMATGV/lOX.’No.  of  Ice  Covered  Regions  in  the  Lake=\I3/ 

S  5X,’  Region  from  X,Y  Grid  to  X,Y  Grid  Ice  Thic(ft)’/ 
$(5X,I4,11X,I3,’,',I3,6X,I3,Y,I3,5X,F6.2)) 

932  FORMATC/lOX.’No.  of  Ice  Covered  Regions  in  the  river-’, 13/’  (  for 
Sriver  ice  cover  thickness  refer  to  Ice  Conditions  at  X-sections)’ 
$//5X,’  Region  from  X,Y  Grid  to  X,Y  Grid’/ 

$  (SX.M.llX.D.V.D.eX.tt.V.D)) 

C 

C  write  flow  and  discharge  info 
C 

WRITE(*,860) 

DO  280  I=1,NBRNCH 

280  WRITE(*,870)LQ(l).WLa) 

C 

IFOLICERG  .GT.0)THEN 

WRriE(*,930)UCERG,(l,NICEXl(l),NICEYl(l),NICEX2(l),NICEY2(l), 

$  ZLKICE(I) ,  1= 1  .LICERG) 

ENDIF 

C 

C  Set  up  the  one  dimensional  array  locations  that  define  Ice  Regions 
C 

IKNICERG.EQ.OXXJTO  278 
DO  40  K-l, NICERG 
LKl-NICEXlOO-1 
MKl-NICEYlOO-1 
IPOSlCK)  -  0 
IF(LK1  .EQ.OXlOTO  45 
DO  44  L1-1.LK1 

IPOSlCK)  -  IPOS  1  (K)+IGR IUB(L1 ) - IGRILB(L1 )+  3 
44  CONTINUE 
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45  IPOSlCK)  -  IPOSl(X)+MKl-IGRILB(UCl+l>+3 

LK2-NICEX200-1 
MK2-NICEY200-1 
IPOS200  -  0 
EFCLK2.EQ.0X3OTO  48 
DO  47  L1-1.LK2 

IPOS20O  -  IPOS200+IGRIUBCLl)-IGRILB(Ll)+3 

47  CONTINUE 

48  IPOS200  -  IPOS2(K)+MK2-IGRILB(LK2+l)+3 
40  CONTINUE 

278  CONTINUE 

C  Call  Lake  Circulation  Model  (RIJD)  to  calculate  and  stabilize  stream 

C  function  values  for  lake  grids.  RLED  runs  for  time  step  of  1  hour  for 

C  a  total  of  20  hours.  Stream  function  values  at  the  end  of  this  time 
C  period  will  be  written  to  a  temporary  file.  Rlid  will  then  be  called  and 

C  run  for  every  UFDT  amount  of  time  to  update  the  lake  stream  functions. 

C  The  stage  and  discharge  at  the  river  entrance  is  used  for  the  lake. 

INDPRN  -  0 

IF(LICERG .EQ . 0)WRITE(t , ’C//A40)’)’  Open  Water  conditions  exist  in 
$the  lake’ 

CALL  RLHXUFDT,  Q(l),  WL(l),  TIMET,  INDPRN) 

C  Call  subroutine  PARTIC  to  calculate  velocities  in  the  lake  grid 
C  boxes  at  initial  spill  time.  PARTIC  is  called  each  UFDT  amount  of 

C  time  to  update  the  lake  velocities.  ILVCAR  counts  how  many 

C  velocities  are  written  to  VCAR(I). 

CALL  PARTICCWLCl),  ILVCAR,  IOPT2) 

C 

C  Now  call  VELDIS  to  find  the  2-D  vel  distribution  in  the  river 
C  • 

IF(IOPTl.EQ.l)CALL  PRINTl(2,  NBRNCH) 

CALL  VELDIS(IOPT2,  NBRNCH,  ILVCAR) 

NST1-OUF- l)*OSTPS+l 
NST2-  NST1  +  OSTPS  -1 
DO  330  I-NST1.NST2 
READ(12,*)VWMAG  .THETA, TENVF 
THET  -  (127.1 -THETA)*3. 141592/180. 

VWX»VWMAG*SIN(THET) 

VWY-  -  VWMAG*COS(THET) 

VWIND  -  CMPLX(VWX ,  VWY ) 

WNDSPD  -  VWMAG/3.28 
VWMPH  -  VWMAG*0.6818 
TENV  -  (TENVF- 32)*5./9.  +  273. 

INDPRN  -  0 

IF(MOD(I- 1  ,IEVERY).Ey .0)INDPRN  -  1 
TIMET  -  TIMET  +  SPILDT 
iKlSPTYP.NE.lXJOTO  290 

ef(i.le.nspils)call  PRELSE(SPILDT,K,NST,NPTCL,SPCENO,DIFFUL, 

$  DIFFUR) 

IKI.GT.1)CALL  ADVECltSPILDT,  DC,  1,  NST-1,  DIFFUL,  DIFFUR  ). 

290  IKISPTYP.EQ.0)CALL  ADVECKSPILET,  DC,  1,  NTOTAL, DIFFUL, DIFFUR) 

CALL  0RIENT(INDX1D,ANGLE) 

IF(INDX1D.L.T.3)G0T0  293 
IF(NICERG.EQ.0)INDX1D-INDX1D-  3 
IKNICERG.EQ.OXJOTO  293 
NPTICE-0 

DO  292  KK-l.NMOVIN 
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J-  IMOVIN(KK) 

SPX  -  REAL(PARTCL(J)) 

IF  (SPX  .GT.  0.0E0)  GOTO  144 
L  -  (SPX  -  BEGUO/DXL 
M  -  (AIMAG(PARTCL(J))+YSHIFltJ))/DXL 
GOTO  154 

L  -  SPX/DXR  +  LGRIDX 

M  -  (AIMAG(P ARTCL(  J))+ Y  SHIFlX  J  ))/DXR 

CONTINUE 

IPOS  -  0 

IFOL.EQ.OXjOTO  117 
DO  115  L1-1.L 

IPOS  -  IPOS+IGRIUB(Ll)-IGRIUB0Ll)+3 
CONTINUE 

IPOS  -  IPOS+M-IGRILB(L+l>+3 
DO  118  K-l.NICERG 

IftlPOS.GE. IPOSlQO  .AND. IPOS. LE.IPOS2(K))NPTICE='NFnCE+l 
CONTINUE 
CONTINUE 

RATICE=FLOAT(NPTICE)/FLOAT(NMOVIN) 
IF(RATICE.LT.0.5)INDX1I>=INDX1D- 3 
DF(RATICE.GE.0.5)INDX1D=0 
TTTT-TIMET/3600. 

GALPAR  -  VOLPAR/0. 13368 

ff(INDPRN.EQ.l)WRrrE(*,880)nTT,VWMPH,THErA,TENVF,SPCEN,GALPAR, 
S  SLINFO(lNDXlI>fl) 

IHINDX1D.EQ.0)CALL  SPRDAX(SPILDT,  TEMET,  INDPRN,  SPAREA 
$  ,SPLTIM,  SPLRAT) 

IKINDX1D.EQ.1.0R.INDX1D.EQ.2)CALL  SPRDIJXSPILDT,  TIMET,  INDPRN, 
$  SPAREA  ,  ANGLE) 

FEVP1-FEVP2 

CALL  EVAPORCAPl.TENV.WNDSPD.VMOL.VZERO, SPAREA, SPILDT,I) 

CALL  DISOLU(SPAREA, SOLELT.TIMEr,  SPILDT .API ,DELDIS,TOTDIS) 

DELUNI  -  DELDIS*264.172E-06/SPGOIL 
TOTUNI  -  TOTDIS*264.172E-06/SPGOIL 
VOLPAR-  0.13368*(SPVOL*(l  -FEW2)-T0TUNI)/NT0TAL 
BKNHITB.GT.OCALL  BOUNDR(INDPRN) 

IF(LGE.NSPILS)NST  -  NPTCL  +1 
IF(I.GE.NSPILS)GOTO  300 
NST=NPTCL+1 
NPTCL-N  ST+N  PERDT- 1 
IKINDPRN.NE.IXJOTO  330 
WRITE(*,900)FEVP2, DELUNI, TOTUNI 
IKI0PT4.EQ.1)CALL  PL0TNU(6) 

IF(IOPT3.NE.1)GOTO  330 
IPARTX(  1  )=REAL(  S  PCEN ) 

IPARTY(l)=AIMAG(SPCEN) 

WRITE(1 1 ,9 10)lPARTX(l),IPARTY(l),TTTT,VWX,VWY, GALPAR 
DO  320  J-1.NT0TAL.5 
DO  310  K-1,5 

IPARTX(K)  -  REAL(PARTCL(J+K- 1)) 

IPARTYOO  -  AIMAG(PARTCL(J+K-1)) 

CONTINUE 

WRITE(11 , 850XlPARTX(K), IPARTYOO, K-l  ,5) 

CONTINUE 

CONTINUE 
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340  CONTINUE 
STOP 

234  FORMAT^///’  Open  Water  Conditions  exist  in  the  river  0 

235  FORMATC//’  Ice  conditions  at  cross  sections’, /1H+,32C_0// 

$’  X-sect’,9X,’Condition  (A  thickness  of  0.0  implies  open  water)’) 

236  FORMATC/I4,5X,’Ice  cover  of  uniform  thickness  -\F5.2, 

$  ’  ft  across  the  river’) 

237  FORMATC/I4,5X,’Partial  or  non-uniform  ice  cover  across  the  river.’ 
$,’  Distances  from’/9X,’the  lower  bank  and  corresponding  ice’ 

$  ’  thickness  is  given  below’/9X,’Dist(ft)  ’,2015) 

238  FORMATC9X, Thi c(f t)  ’.20F5.2) 

720  FORMAT^  **  ERROR  **  READING  GRID  INFO.’) 

730  FORMATC’  NZRVB  is  GT  100  and  is  reset  to  100') 

710  FORMATC’  «  ERROR  **  READING  X  SECTION  -  DATA  ’) 

700  FORMATC’  **  ERROR  **  READING  LOWER  BOUNDARY  -  DATA  ’) 

660  FORMATCI4 , 1  X,A4) 

650  FORMATC20A4) 

651  FORMATCI4,F8.0,F7.0,F6.2,5E11.3) 

810  FORMAIt8X,llA4,//5X,25C’*’)/5X,’*  CONTINUOUS  SPILL  *’/SX, 

S  ’*’,11X,’AT,10X,’*75X,’*’,4X,F7.0,’,’,F7.0,4X,’*7 
S  5X,’*\5X,TOR  ’,F5.0,’  min.’,4X,’*75X,25C’*’)) 

820  FORMATC 8X,  1 1A4,//5X,25(’*’)/ 5X,’*  INSTANTANEOUS  SPILL  »’/5X, 

S  ’*’,11X,’AT,10X,’*75X,’*’,4X,F7.0,’,’,F7.0,4X,’*75X,25C’*')) 

830  FORMATX//’  SIMULATION  PERIOD  -  \F5.1,’  Hrs'/// 

S  ’  Characteristics  of  spill7lH+,24(’_’)// 

$  ’  No.  of  particles  :’,I5,/ 

S  ’  Oil  spilled  :’,F8.0,’  gals  of  \4A4,/ 

$  ’  DT  for  spill  simulation  :’,F8.0,’  Secs.’,/ 

S  ’  Specific  gravity  of  oil  :’,F8.2,’  (API  index  -’,F5.1,’)’/ 

$  ’  Kinematic  Visco.  of  Water  :\E10.4,’  sq  ft/sec’,/ 

$  ’  Surafce  Tension  :’,E10.4,’  lbs/ft’,/) 

840  FORMAT  C/9X,’Spreading  Coefficients’  / 

$  ’  K2i  K2v  K2t  clO  c20  c30’/,6F6.2// 

$  ’  Molar  volume  :\E10.4,’  cu  ft/mol’/ 

$  ’  Solubility  of  fresh  oil  :’,E10.4,’  lbs/cu  ft’) 

842  FORMAT  0  Viscosity  of  Oil  :’,F8.2,’  lbs/ft-sec’/ 

$  ’  Manning  s  Roughness  of  Ice  :’,F8.3/) 

845  FORMATC/’  Time  step  for  river  flow  computation  -  ’.Fb^.TIrs’) 

910  FORMATCl8,I7,F9.4,2F6.1,F8.2) 

850  FORMATC5CI8.I7)) 

880  FORMATC//1X.7 80- ’)/’  Time  =  \F6.2,’  Hrs  --  Wind  :mag-’,F5.1, 

S  ’  mph,  dir  -\F5.1,’  deg  --  Air  Temp=’,F5.1,’  F/ 

$  ’  Spill  center  after  advection=  \F7.0/,',F7.0,’  (ft)7 
$  ’  Volume  per  particle  -  \F7.3,’  gals’// 

$  ’  Slick  condition  during  this  time  step’// 

$  ’  Slick  information  by  pie  /  strip’,/A42) 

900  FORMATC//8X, ’Slick  condition  at  the  end  of  this  time  step’ 

$  //’  Fraction  Evaporated  =  \G10.5/’  Amount  Dissolved  Cgals) 

$  :  This  Step  -  \G10.5,’  Total  -  ’.G10.5/) 

860  FORMAft///’  Flow  and  Discharge  Conditions  in  the  River’/ 

$  ’  Branch  Q  Ccfs)  Stage  Cft)  ’) 

870  FORMATC4X,I2,5X,F7.0,5X,F6.2) 

800  FORMATC//’  Spill  location  co-ords  are  in  land  X  &  Y  GRID  box  no.s 
$  are  ’,14,’  &’,I4,//’  Execution  terminated  ’) 

END 
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SUBROUTINE  ADVECTtSPILDT,  IX,  Nl,  N2,  DIFFUL,  DIFFUR) 

This  subroutine  handles  the  slick  advection  in  each  time  step 
Each  particle  is  advected  according  to  current  &  wind  velociites 
(see  text  for  details) 

--  This  routine  advects  moving  particles  in  the  range  Nl  to  N2 
--  This  version  includes  advection  under  ice  covers 
--  Modifications  for  addition  of  lake  were  made. 

--  Last  Date  of  Revision  :  Sept  19,  1986 

COMPLEX  VCAR(8000),SPCEN,PARTCL(1000),VWIND,VDRIFT 
COMMON  NPJ  VCAR.VWIND.VDRIFT 

COMMON  /VASB/IGRILB(300),IGRIUB(300),IGRLBl(300),IGRUBl(300) 
COMMON  /ASB/SPCEN,PARTCL,NPTCL,NHITB,IHrrB(l000),TYPBND(4,300) 
COMMON  /GRIDS/  DXL,  DXR,  LGRIDX,  NGREDX,  IRGRID,  BEGLK 
COMMON  /BLOCK7/SPGOIL,ANIU,SIGMA,AK2I,AK2V,AK2T, 

S  VOLPAR,VOLPIE(8),SUCKR(8) 

COMMON  /ICE/ZWND(40,40),2LKICB(20),NICEXl(20),NICEYl(20)> 

$  NICEX2(20), NICEY2(20), IPOS  1(20), IPOS2(20),AMIUO,ANICE, 

S  SPAICE,NICERG,UCERG 

Input  :  ..  Location  of  each  particle 

..  Velocity  distribution  in  river 
Output:  ..  New  loaction  of  each  particle 

DATA  PI/3.141592/,  STPTIM/0.0/ 

STPTIM  -  STPTIM  +  SPILDT 
IF(NICERG.EQ.O)GOTO  25 

DELEQ  -  Equilibrium  thickness  (ft) 

UIH  -  Threshold  current  speed  for  slick  movement  (  ft/sec) 

UFAIL  -  Failure  velocity  under  rough  ice  cover  (  ft/sec) 

FRAMFA-  FRiction  AMplification  FActor  denoted  by  TC  in  text 
AMIUO  -  Viscosity  of  Oil  in  g/cm-sec 

DELEQ  -  (1.67  -  8.5*(1.0-SPGOIL))/30.48 
UIH  -  (305. 79/(88.68 -AMIUO))/30. 48 
FRAMFA  -  35.55*ANICE  +  1.0 
IF(ANICE.GT.0.045)FRAMFA  -  2.6 
TERM1-SQRT(SIGMA*(32.2)**2*62 .4*(1 .  -  SPGOIL)) 
UFAIL-1.5*SQRT(2.*(l.+SPGOIL)*TERMl/(62.4*SPGOIL)) 

ROUGH  -  (ANICE/0.034)**6 

Loop  60  operates  for  each  moving  particle  in  the  system 

5  DO  60  I-N1.N2 
SUMDT  -  0. 

IPASS  -  1 

C  SUMDT  -  Sum  of  the  small  Dt’s  (DTSMAL) 

C  IPASS  -  pass  number  in  this  loop.  A  particle  may  move  from  its 

C  previous  position  to  present  position  through  only  one  pass  or 

C  several  passes  depending  on  the  magnitude  of  velocities  in  the  region 
40  DO  30  J-1,NHTTB 

IF(I.EQ.IHITB(J))GOTO  60 
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30  CONTINUE 

SPX  -  realCpartclCi)) 

IF  (SPX  .GT.  0.0D0)  GOTO  144 
L  -  (SPX  -  BEGUO/DXL 
M  -  AIMAG(PARTCL(I))/DXL 
GOTO  154 

144  L  -  SPX/DXR  +  LGRIDX 

M  -  AIMAG(PARTCL(0)/DXR 
154  CONTINUE 

IPOS  -  0 

EFCL.EQ.OXjOTO  117 
DO  115  Ll-lJ- 

IPOS  -  IPOS+IGRIUB(Ll)-IGRILB(Ll)+3 
115  CONTINUE 

117  IPOS  -  IPOS+M-IGRILB(L+l)+3 

EKNICERG.EQ.0X3OTO  125 
C 

C  Determine  whether  the  particle  is  under  ice  or  not 
C 

ICOND=0 

DO  120  K-l.NICERG 

IF(lPOS.GE.IPOSl(lO  AND. IPOS. LE.IPOS2(K))ICONI>-l 
IKIC0ND.EQ.1)G0T0  180 
120  CONTINUE 

C 

C  Advection  velocity  in  free-surface  conditions 
C 

125  VDRIFT  «  0.03*VWIND  +  1 .  i  * VCAR(IPOS) 

C 

C  Add  in  turbulent  fluctuation 
C 

GOTO  210 
C 

C  Advection  Velocity  under  Ice 
C 

180  UWATER  -  CABS(VCAR(IP0S)) 

IKROUGH.GT.DELEQXjOTO  190 
DF(UWATER  .LT.UTH)GOTO  60 
GOTO  200 

190  IKUWATER.LT.UFAILXJOTO  60 
200  VDRIFT  -  VCAR(IPOS) 

FDELTA  -  UWATER/SQRIX(  1.0-  SPGOIL)*  32.2  *DELEQ) 

FK  -  SQRT(FRAMFA/(0 .115  *FDELTA**2  +  1.105)) 

VDRIFT  -  VDRIFT*(1-FK) 

210  DTSMAL  -  86400. 

C  86400  is  just  a  large  number  in  this  case  equal  to  secs  in  a  day 
C 

VELUFV  -  ABS(REAL(VDRIFT))  +  ABS(AIMAG( VDRIFT)) 
IKVELUPV.GT.0.01)  THEN 

DF(SPX.GE.0.0)  DTSMAL  -  DXRATLUPV 
IF(SPX.LT.0.0)  DTSMAL  -  DXLATLUPV 
ENDEF 

DFODTSMAL.GT.  spildDthen 

IFdPASS.EQ.DDTSMAL  -  spildt 
IFOPASS.GT.DDTSMAL  -  SPILDT  -  SUMDT 
ENDIF 
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IFCDrSMAL.LT.O.O)DTSMAL  -  0. 

IKCSUMET+DTSMAU.GE.SPILDT)  IPASS  -  9999 
SUMDT  -  SUMET  +  DTSMAL 
CALL  RANDU(IX,IY,YFL) 

IX  -  IY 
ANG  -  PI*YFL 

CALL  GAUSS(IX,1  •0,0.0,VRAND) 

IFCSPXXT.O.O)  then 

TELAPS  -  STPTIM+SUMDT -ETSMAL/2.0 

IKDIFFUL.LT.O.O)  VPRIME  -  3A07E-03*TELAPS**0.67/SQRTCDTSMAL) 
IFCDIFFUL.GE.O.O)  VPRIME  -  SQRTt4*DIFFUIVDTSMAL) 

ENDIF 

IKSPX.GE.O.OTIHEN 

IF(DIFFURXT.O.O)  DDD  -  2 •  8 8*CABS(VDRIFT) 

IF(DIFFUR.GE.O.O)  DDD  -  4*DIFFUR 
VRPIME  -SQRTXDDD/DTSMAL) 

ENDIF 

VRAND  -  VPRIME*VRAND 
VX  -  VRAND*COS(ANG) 

VY  -  VRAND*SINCANG) 

VMAG  -  CABSCVDRIFT) 

VDRIFT  -  VDRIFT+  CMPLXCVX.VY) 

PARTCLCl)  -  PARTCLCt)  +  DTSMAL*VDRIFT 
IKIPASS.NE.9999)  GOTO  40 


Check  for  particle  hitting  the  boundaries 

SPX  -  reaUpartclCi)) 

IF  (SPX  .GT.  O.OEO)  GOTO  145  ‘ 

L  -  (SPX  -  BEGLK)/DXL  +  1 
M  -  AIMAG(PARTCL(I))/DXL  +  1 
GOTO  155 
145  L  -  SPX/DXR  +  1  +  LGRIDX 

M  -  AIMAG(PARTCL(l))/DXR  +  1 
155  CONTINUE 

IF(M.GE.IGRILB(L)AND.M.LE.IGRIUB(L))GOTO  55 
NHFTB  -  NHTTB  +  1 

eetbCnuitb)  -  I 

55  IF(IGRLB1(L).EQ.O)GOTO  59 

IF(M.LE.IGRUB1(L).AND.M.GE.IGRLB1(L))G0TO  58 
GOTO  59 

58  NHTTB  -  NMTB+1 
BHTB(NHITB)  -  I 

59  CONTINUE 
IF(IPASS.NE.9999)GOTO  40 

60  CONTINUE 
RETURN 
END 
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SUBROUTINE  BOUNDR(INDPRN) 

COMPLEX  SPCEN.PARTCUlOOO) 

COMMON  /VASB/IGRILB(300),IGRIUB(300),IGRLBl(300),IGRUBl(300) 
COMMON  /ASB/ SPCEN ,  PARTCL.NPTCL,  NHTTB,IHrrB( 1 000),TYPBND(4 ,300) 
COMMON  /GRIDS/  DXL,  DXR,  LGRIDX,  NGRIDX,  IRGRED,  BEGLK 
DIMENSION  NPTBND(4,325),IDUM1(300),IDUM2(300) 

C 

C  This  subroutine  handles  adsorption  and  rejection  at  the  boundaries 
C  --  Modifications  for  addition  of  lake  were  made. 

C 

C  --  Last  Date  of  Revision  October  29,1985 
C 

DO  10  1-1,  NGRIDX 
DO  10  K-1,4 

10  nptbndCk.D-o 

DO  80  I-l.NHTTB 

j  -  mrrBG) 

SPX  -  REALCPARTCLCJ)) 

IF  (SPX  .GT.  0.0D0)  GOTO  144 
L  -  (SPX  -  BEGUO/DXL  +  1 
M  -  AIMAG(PARTCL(J))/DXL  +  1 
DX  -  DXL 
GOTO  154 

144  L  -  SPX/DXR  +  1  +  LGRIDX 

M  -  AIMAG(PARTCL(J))/DXR  +1 
DX  -  DXR 
154  CONTINUE 
C 

C  Check  if  the  particle  is  below  the  lower  boundary.  If  so  assign 
C  it  to  the  boundary  grid  and  count 
C 

IF(M.GE.IGRILBCL))GOTO  20 
IF(M.EQ.(IGRILB(L)-1))GOTO  15 
XI  -  REALCPARTCLCJ)) 

Y1  -  IGRHJB(L)*DX  -  1.5*DX 
PARTCL(J)  -  CMPLX(Xl.Yl) 

15  NPTBND(1,L)  -  NPTBNlXl.L)  +  1 
GOTO  80 
C 

C  Check  if  the  particle  is  above  the  upper  boundary,  If  so  assign 
C  it  to  the  boundary  grid  and  count 
C 

20  IF(M.LE.IGRIUB(L))GOTO  40 

IF(M.EQ.(lGRIUB(L)+l)X30TO  30 
XI  -  REALCPARTCLCJ)) 

Y1  -  IGRIUB(L)*DX  +  DX/2. 

PARTCLCJ)  -  CMPLXCXl.Yl) 

30  NPTBND(2,L)  -  NPTBND(2,L)  +  1 

GOTO  80 
C 

C  If  it  didn’t  belong  to  the  two  categories  above,  it  must  be  in  the 
C  Island,  therefore  assign  to  the  nearest  boundary  and  count 
C 

40  Y2  -  AIMAG(PARTCL(J))- IGRLBl(L)*DX  +  0.75*DX 

Y3  -  IGRUB1(L)*DX  -  0.25*DX  -  AIMAGCPARTOjCJ)) 

IF(Y2 .LT. Y 3)PARTCIjCJ)  -  PARTCLCJ)  -  CMPLX(0.,Y2) 
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IKY2.LT.Y3)NPTBND(3,L)  -  NFIBND(3,L)  +  1 
IKY3 .LT. Y2)PARTCLC J)  -  PARTCL(J)  +  CMPLX(0.,Y3) 

IKY3.LT. Y2)NFTBND(4JL)  -  NPTBND(4,L)  +  1 
80  CONTINUE 

Number  of  particles  in  each  boundary  grid  has  been  determined 
Now  check  for  the  boundary  type  and  re-entrain  the  excess  particles 

IKINDPRN.EQ.  l)WRnK*,300) 

DO  220  Ll-l.NGRIDX 
NBNDR  -  2 

lKlGRLBl(Ll).NE.0)NBNDR-4 
DO  210  K-l, NBNDR 
IKNPTBND(K,L1).EQ.O)GOTO  210 
IALOWD  -  0.5  +  (l.-TYPBND(K,Ll))*NPTBND(K,Ll) 

KOUNT  -  0 
I  -  0 
90  I  -  I  +  1 

IKLGT.NHJTBXJOTO  205 
J  -  MTIBG) 

spx  -  reaiXpartclCj)) 

IF  (SPX  .GT.  0.0D0)  GOTO  145 
L  -  (SPX  -  BEGUO/DXL  +  1 
M  -  AIMAG(PARTCUJ))/DXL  +  1 
DX  -  DXL 
GOTO  155 

145  L  -  SPX/DXR  +  1  +  LGRIDX 

M  -  AIMAG(PARTCL(J))/DXR  +1 
DX  -  DXR 
155  CONTINUE 

IF(L.NE.Ll)GOTO  90 

ifOc.ne.iXjoto  110 
IKM.NEJGRILBCD-IXJOTO  90 
KOUNT  -  KOUNT  +  1 
IFCK0UNT.IJE.IAL0WDX30TO  90 
IKDX.EQ.DXL)  XC0~L*DX  +  BEGLK  -  0.5*DX 
DF(DX.EQ.DXR)  XCO=(L-IjGRIDX)*DX  -  0.5*DX 
YC0=M*DX  +  0.5*DX 
PARTOjCJ)  -  CMPLX(XCO,YCO) 

NHITB  -  NHTIB  -  1 
DO  105  H  -I, NHITB 

105  hotbod  -  mrrKn+D 

miTKNHITB+l>-0 

i-i-i 
GOTO  90 
C 

110  EF0C.NE.2X3OTO  130 

IF(M.NE.IGRIUB(L)+l)GOTO  90 
KOUNT  -  KOUNT  +  1 
IF(KOUNT.LE.IALOWD)GOTO  90 
IKDX.EQ.DXL)  XCO-L*DX  +  BEGLK  -  0.5*DX 
IKDX.EQ.DXR)  XCO-a-LGRIDX)*DX  -  0.5*DX 
YCO-M*DX  -  1.5*DX 
PARTCUJ)  -  CMPLX(XCO.YCO) 

NHITB  -  NHITB  -  1 
DO  115  n  -I, NHTIB 
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115  IHITB(II)  -  fflTTB(n+l) 

HrrBCNHrrB+i)-o 
I-I-l 
GOTO  90 

c 

130  EF(NBNDR.EQ.2)GOTO  90 
lKK.NE.3)GOTO  150 
lKM.NE.IGRLBl(L))GOTO  90 
IKIGRUB1  (L).NE.  IGRLBl(L))GOTO  140 
XXX  -  aimag(partcl(j))-(igrlbi(l)-  i)*dx 
lKXXX.GT.0.5*DX)GOTO  90 
140  KOUNT  -  KOUNT  +  1 

IKKOUNT.LE.IALOWDXjOTO  90 
IKDX.EQ.DXL)  XCO-L*DX  +  BEGLK  -  0.5*DX 
IKDX.EQ.DXR)  XCXXL-LGRIDX)*DX  -  0.5*DX 
YCO=M*DX  -  1.5*DX 
PARTCIXJ)  -  CMPLX(XCO , Y CO) 

NHTTB  -  NH3TB  -  1 
DO  125  II  -I, NHTTB 

125  hhtbCii)  -  mrrKn+i) 

mrrB(NHrre+i>=o 
i-i-i 
GOTO  90 
C 

150  IF(K.NE.4)GOTO  90 

IKM.NE.IGRUB1(L))G0TO  90 
lKlGRUBl(L).NE.IGRLBl(L))GOTO  160 
XXX  -  IGRUB1(L)*DX  -  AIMAG(PARTCLCJ)) 
IKXXX.GT.0.5*DXXJOTO  90 
160  KOUNT  -  KOUNT  +  1 

ifCkount.le.ialo^dXkjto  90 
IKDX.EQ.DXL)  XCO-L*DX  +  BEGLK  -  0.5*DX 
IKDX.EQ.DXR)  XCO-a-LGRIDX)*DX  -  0.5*DX 
YCO=M*DX  +  0.5*DX 
PARTOiJ)  -  CMPLX(XCO,YCO) 

NHTTB  -  NHTTB  -  1 
DO  135  II  -I, NHTTB 

135  butbCii)  -  ihitb(ii+i) 

nHTBCNHITB+l)=0 
1=1-1 
GOTO  90 

205  CONTINUE 

210  CONTINUE 
220  CONTINUE 

lKlNDPRN.EQ.O)RETURN 
DO  430  K=l,4 
KOUNT-O 

DO  410  L=1,NGRIDX 
EF(NPTBND(K,L).EQ.O)GOTO  410 
KOUNT  =  KOUNT+1 
IDUM 1  (KOUNT)=L 
EDUM2(KOUNT)=NPTBND(K  ,L) 
IF(KOUNT.GT.250)WRrrK420) 

410  CONTINUE 

IKKOUNT.EQ.OXJOTO  430 
Kl-1 
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K2-KOUNT 

EF(KOUNT.GT.28)K2-28 
415  WR1TE(*,440)K,(IDUM1(D,I-K1,K2) 

WRrrEC*,450XrDUM2(l),I-Kl  ,K2) 

IFCK2 . GE .KOUNTXjOTO  430 
K1-K2+1 
K2-K1+27 
GOTO  415 
430  CONTINUE 
RETURN 

300  FORMATC/25X,’Oil  in  Lake  and/or  River  Banks’) 

440  FORMATC/’  Bank’,12,’;  X-Grid’,28I4) 

450  FORMATC6X,Tarticles’,28I4) 

310  FORMAT(5X,  3(1 3 , 3X)) 

END 
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Subroutine  DISOLU 


SUBROUTINE  DISOLU(SPAREA,  SOLBLT.TMET,  SPILDT,API  .DELDIS  .TOTDIS) 

C  * 

C  This  subroutine  computes  the  amount  of  oil  dissolved  in  water 
C  The  solubility  of  oil  is  so  low  that  it  does  not  affect  the 
C  trajectory  (spreading),  but  is  important  for  environmental  impact 
C  assessment.  —  The  working  units  of  this  subroutine  are  METRIC 
C 

C  Explanation  of  variables 

DISOLK  -  Dissolution  mass  transfer  coefficient  1  cm/hr 

or  2.7777E-06  m/sec 

SOLBLT  -  Solubility  of  fresh  oil  (g/cu  m) 

ARBAR  -  mean  area  of  slick  during  the  time  step  (sq.  m) 

PET  JITS  -  amount  of  oil  dissolved  during  time  step  (grams) 

SPAREA  -  Free  surface  area  of  spill  (sq.  ft) 

SPAICE  -  Area  of  spill  under  ice  (sq.  ft) 

--  Last  Date  of  Revision  :  October  29,  1985 
C 

COMMON  /ICE/ZWND(40,40),ZLKICE(20),NICEXl(20),NICEYl(20), 

$  NICEX2(20),NICEY2(20),IPOS1(20),IPOS2(20),AMIUO,ANICE, 

S  SPAICE,  NICERG  ,LICERG 
DATA  DISOLK/2.7777E-06/ 

SPAR2-(SPAREA+SPAICE)/ 10.76 
ARBAR-(SPAR  1 +SPAR2)/2 .0 
SPAR1-SPAR2 
T1 -(TIMET-  SPDLDT)/36000 
T2-TTMET/36000. 

DELDIS— DISOLK*ARBAR*SOLBLT*36E3*(EXP(-T2)-EXP(-Tl)) 
TOTDIS-TOTDIS+DELDIS 
C  WRITB(V)SPAREA,SPAICE,ARBAR 
RETURN 
END 


subroutine  EVAPOR 


SUBROUTINE  EVAPOR(API,TENV,WNDSPD,VMOL.VZERO,SPAREA,SPILDT,i  STEP) 
C 

C  This  subroutine  computes  evaporatioon  rates  based  on 
C  Mackay,  Patterson  and  Nadeau  ’  s  theory. 

C  In  this  subroutine  metric  unit  system  is  used.  The  reason  for 

C  for  using  units  diffemt  units  from  other  subroutine  is  to  make 

C  cross  reference  with  theory  easier. 

C 

C  Last  date  of  revision  October  29,1985 
C 

C  Explanation  of  variables  used  in  EVAPOR 


c 

AKM 

mass  transfer  coeff.  Km  (m/s) 

c 

PO 

vapor  pressure  at  TENV  (atm) 

c 

C 

coefficient  C  at  TENV 

c 

FEVP2 

-  fraction  evaporated 

c 

JSTEP  - 

current  time  step 

c 

RGAS 

gas  constant:the  values  of  RGAS  in  diffemt  units  are 

c 

- 

1.98726  cal/deg  mole 

c 

- 

8.31470  joules/deg  mole 

c 

- 

82.0597  cc-atm/deg  mole 

c 

SPAREA  - 

Free  surface  area  of  spill  (sq.  ft) 

c 

SPAICE  - 

Area  of  spill  under  ice  (sq.  ft) 

C 

COMMON  /BLOCK7/SPGOIL,ANIU,SIGMA>AK2I(AK2V>AK2T, 

$  VOLPAR,VOLPIEC8),SUCKR(8) 

COMMON  /SE/FEVP1  .FEVP2.CEVP.T0EVP 
DATA  RGAS/8.3147/ 

DATA  SCKET,  SUMC,  SUMPO/ 3*0./ 

SPAR2-SPAREA/10.76 

ARBAR-(SPAR2+SPARl)/2.0 

SPAR1-SPAR2 

IF(WNDSPD.LT.0.000l)WNDSPD-0.001 
AKM  -  0.0025*WNDSPD**0.78 
OCEVP 
TO-TOEVP 

ifCapi.lt. l.oXxno  so 
C  -  1158. 9*API**(- 1.1435) 

T0-542.6-30.27*API+1.565*API**2-3.439E-02*API**3+2.604E-04*API**4 
50  P0-  EXP(10.6*(1  -TO/TENV)) 

CO  C*283./TENV 
SUMPO  -  SUMPO  +  PO 
SUMC  -  SUMC  +  CC 
POBAR  -  SUMPO/ JSTEP 
CHAR  -  SUMC  /JSTEP 
TOIL  -  TENV 

AKE  -  AKM*ARBAR*VMOL/CRGAS*TOIL*VZERO) 

SCKET  -  SCKET  +  CBAR*AKE*SPILDT*10.137E04 

SUME  -  SUME  +  AKE*SPILDT*10.137E04 

FEVP2  -  (ALOGCPOBAR)  +  ALOGCSCKET+1  ./POBAR))/CBAR 

IF(FEVP2.GT.0.6)FEVP2  -  0.6 

RETURN 

END 
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SUBROUTINE  NDCONVCNBRPl,  IRCODE) 

C 

C  This  subroutine  reads  nodal  water  level  and  discharge  according 
C  to  the  sequence  from  Detroit’s  1-D  flow  model  and  then  converts 
C  to  the  branch  B.C.  required  by  Oilspill  model.  If  both  have  the 
C  same  sequence  of  numbering  this  subroutune  is  not  required. 

C 

C  --  This  subroutine  is  for  the  three  rivers  given  below  which  currently 
C  run  on  Detroit’s  one  dimensional  unsteady  flow  model. 

C  --  This  version  has  one  additional  branch  added  to  Detroit  River 
C  causing  a  change  in  Q(l4)  &  QCl). 

C  --  Modifications  for  addition  of  lake  were  made 
C 

C  --  Last  Date  of  Revision  :  October  29,  1985 
C 

DIMENSION  DWL(22),DQ(22),NPTS(3) 

INTEGER  RIV1(16),RIV2(17),RIV3(16) 

COMPLEX  COMPXY,VSTRM(99, 1 6),CORDV(9 9 , 1 6),VCAR(8000), CORDLB(99) 

COMPLEX  SPCEN,PART(XClOOO)IVWIND,VDRIFT 

COMMON  /VEL/VSTRM,  CORDV,  CORDLB, Q(30)M30),TICBC99 ,20), 

$  YWID(99,20),Z(99,20),ZDC99),NSLSCr(99),SCrANG(99)> 

$  LCSTSQ(30),NSTUBE(99),NUMCON(99),NFIRCO(99),NSECO(99),KINTM 
COMMON  /VA/  VCAR  ,VWIND, VDRIFT 
DATA  RIV1/1,2,3,4,5,5,7,6,7,8,9,5*1/ 

DATA  RIV2/1, 1,14,3, 16,4,6, 7, 8, 9,10, 11, 18, 13,20,21,22/ 

DATA  RIV3/1, 9, 10, 3, 4,5,6, 7,11,13, 13, 5*1/ 

DATA  NPTS/9,22,13/ 

N-NPTS(IRCODE) 

DO  10  I-1,N 

READC7,*)DWUa),DQ(I) 

10  CONTINUE 

DO  20  I-1.NBRP1 
IFClRCODE.EQ.  l)K-RIVl(l) 

EF(IRC0DE.EQ.2)K-RIV2(I) 

IF(IRCODE.EQ.  3)K«RIV3(I) 

WLCD-DWLOO 
q(i)--dq(k) 

)  CONTINUE 


For  Detroit  River  only 


DrXlRCODE.EQ .  2)Q(  1 4)=Q(  1 3)+Q(l2) 
IKIRC0DE.EQ.2)Q(1)-Q(2>+Q(3) 

For  St.Clair  River  only 

IFCIRCODE.NE.  DRETURN 

WlX  7)=DWU6)+  (DWlX5)-DWU6))*20630./35680. 

Q(5)  -  DQ(6)*0.7 

Q(6)  -  DQ(6)*0.3 

RETURN 

END 
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Subroutine  ORIENT 


SUBROUTINE  ORffiNTtiNDXlD,  ANGLE) 

This  program  computes  the  Orientation 
and  Aspect  Ratio  of  the  oil  slick. 


If  Aspect  Ratio  >3,  the  slick  will  be  treated  as  one  dimensional. 

INDX1D-0  :  Axisymmetrical  spreading 

INDX1D-1  or  2  :  One  Dim.  spreading 
INDX1D-3  :  Axisymmetrical  spreading(Short  slick) 

INDX1D-4  or  5  :  One  Dim.  spreading  (Short  slick) 


--  Last  Date  of  Revision  :  September  19,  1986 
COMPLEX  SPCEN ,  PARTCLC 1 000) 

COMMON  /SO/IMOVIN(lOOO),YSHIFT(lOOO),NMOVIN,SSHIFr 
COMMON  /ASB/SPCEN,PARTCL,NPTCL,NHITB,IHrrB(l000),TYPBND(4,300) 
COMMON  /VASB/IGRILB(300),IGRIUB(300),IGRLBl(300),IGRUBl(300) 
COMMON  /GRIDS/  DXL,  DXR,  LGRIDX,  NGRIDX,  IRGRID,  BEGLK 
PI  -  ATANCl.)  *4. 

NMOVIN-O 
ENDX1D  -  0 
COUNT  -  0. 

SPCEN  -  (0.,0.) 

Find  the  indeces  of  moving  particles  and  assign  them  to 
array  IMOVIN0.  Also  compute  the  spill  center  (SPCEN) 

DO  30  I-l.NPTCL 
DO  15  J-l.NHTTB 

EF(I.EQ.IHITB(J))GOTO  30 
15  CONTINUE 

NMOVIN  “NMOVIN + 1 

IMOVIN(NMOVIN)=-I 

SPCEN  -  SPCEN  +  PARTCLd) 

COUNT  -  COUNT  +  1. 

30  CONTINUE 

SPCEN  =  SPCEN /COUNT 
C 

C  If  there  is  an  island,  any  particles  in  the  upper  channel  are 
C  shifted  in  (-)y-dir  by  a  distance  -  width  of  island  at  that  point. 

C  IMPORTANT  :  The  particles  are  moved  back  by  equal  amounts  in 
C  SPRDAX,  SPRD1X  or  SPRD1Y  subroutine. 

C 

SSHIFT  -  0. 

DO  430  I- 1, NMOVIN 
J-IMOVLN(I) 

YSHLFT(J)-0. 

spy.  -  reaUpartclCj)) 

IF  (SPX  .GT.  0.0E0)  GOTO  145 
L  -  (SPX  -  BEGLK)/DXL  +  1 
M  -  AIMAG(PARTCL(J))/DXL  +  1 
DX  -  DXL 
GOTO  155 

145  L  -  SPX/DXR  +  1  +  LGRIDX 
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M  -  aimag(partcijCj))/dxr  +1 
DX  -  DXR 
155  CONTINUE 

efOgrlbiOD.eq.oXjoto  430 
EFCM.LE.IGRUB1(L)X50T0  430 
YSHIFT(J)-(lGRUBlGL)-IGRLBlCO+l)*DX 
PARTCL(J)-PARTCL(J)  -  CMPLX(0. ,  YSHTFrCJ)) 
SSHIFT-SSHIFT+YSHIFrCJ) 

430  CONTINUE 

If  particles  are  shifted,  re -compute  the  Spill-Center 

SPX-REALCSPCEN) 

SPY-AIMAG(SPCEN) 

IF(SSHIFT.LT.DXR)GOTO  450 
SPY-SPY  -  SSMFT/NMOVIN 
SPCEN  -  CMPLX(SPX,SPY) 

450  SUMDC-O. 

SUMIY-O. 

SUMIXY  -  0. 

AVGRAD-0.0 

SPX-REALCSPCEN) 

SPY-AIMAG(SPCEN) 

DO  50  I-l.NMOVIN 
J-IMOVIN(I) 

XX-REAIXPARTCIjCJ))-  SPX 

YY-AIMAGCPARTCLCJ))-  SPY 

AVGRAD  -  AVGRAD  +  SQRT(XX*XX+YY*YY) 

SUMIXY  -  SUMIXY  +  XX*YY 
SUMTY-SUMIY+  XX*XX 
SUMEX=SUMIX+  YY*YY 
50  CONTINUE 

AVGRAD  -  AVGRAD/NMOVIN 
TOP-  -2*SUMIXY 
BOT-  SUMDi-SUMIY 
THETA=ATAN2(TOP,BOT) 

THETA-THETA/2 . 0 

IFCIHEL4  .LT.  0 . 0)THETA“THETA+2  *PI 

CTHETA  -  COSClHETA) 

STHETA  -  SINClHETA) 

SALONG-O. 

SNORML-O. 

DO  60  I-l.NMOVTN 
J-IMOVIN(I) 

XX-REAU(PARTCL(J))-SPX 
YY-AIMAG(PARTCL(J))- SPY 

SALONG  -  SALONG  +  ABS(XX*CIHETA+YY*STHETA) 
SNORML  -  SNORML  +  ABS(YY*CIHETA- XX*  STHETA) 
60  CONTINUE 

SALONG  =  SALONG/NMOVIN 
SNORML  -  SNORML/NMOVIN 
ASPECT  -  SALONG/SNORML 
IFCASPECT.lt.  1 .0)THETA  -  THETA  +  0.5*PI 
IFCASPECT.lt.  1 .0)ASPECT  -  SNORML/ SALONG 
IF(THETA.GT. 2*PI)THETA=THETA  -  2*PI 
IFCASPECT.lt. 3. OXJOTO  80 
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INDX1D  -  1 

IF(THErA.  GT.  0 . 2  5  *PI  AND.THETA J-T.  0.75  *PI)INDX  1 D-2 
DFCTHETA.GT.  1 .25*PI-AND.THETA.LT.l  .75*PI)INDXlD-2 
80  DEG-  THETA*180./PI 

IF(AVGRAD.LT.0.5*DX)INDX1D  -  INDX1D+3 
ANGLE  -  THETA 

lKTHETA.GT.270. )ANGLE  -  THETA  -  360. 

IF(THErA.LE.270.0AND.THETA.GE.90.0)  ANGLE  -  THETA  -  180.0 
RETURN 

200  FORMAT*’  Aspect  Ratio-’, F5.2/*  Major  Axis  -\F8.S,’  rad’, 

$  SX.F8.3,’  deg’,5X,’  INDX1D  -’.I3.F9.2) 

END 
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Subroutine  PLOTNU 


SUBROUTINE  PLOTNUOUT) 


This  subroutine  plots  oil  concentrations  as  the  no.  of  particles 
in  each  grid  of  a  grid  system  superimposed  over  the  river-lake  grid. 
The  grid  size  of  the  superimposed  grid  is  equal  to  DXR.  This  is 
the  only  subroutine  requiring  DXL  to  be  exactly  divisible  by  DXR. 


Last  Date  of  Revision  :  April  04,  1986 
COMPLEX  SPCEN.PARTCLClOOO) 

COMMON  /VASB/IGRILB(300),IGRIUB(300),IGRLBl(300),IGRUBl(300) 
COMMON  /ASB/SPCEN,PARTCL,NPTCL,NHnB,IHnB(lOOO),TYPBND(4,300) 
COMMON  /SO/IMOVIN(lOOO),YSHIFT(lOOO),NMOVIN,SSHIFT 
COMMON  /GRIDS/  DXL,  DXR,  LGRIDX,  NGRIDX,  IRGRID,  BEGLK 
DIMENSION  KOUNTC20,20) 

XXX  -  REALCSPCEN) 

YYY  -  AIMAG<SPCEN>+SSHIFT/NMOVTN 


Shifted  spill  center. 

SPX  -  XXX  -  BEGLK 
SPY  -  YYY 

First  set  all  array  elements  to  print  stars  as  output. 

DO  40  1-1,20 

DO  40  J-1,20,2 
KOUNTCl, JO-1001 
KOUNT(lfJ+l)-1001 
)  CONTINUE 

DD  -  DXL/DXR 
DDM1  -  DD  -  1 

Calculate  max  and  min  boxes  for  the  superimposed  grid 
using  a  shifted  spill  center. 

MIN  -  (SPX/DXR+l)  -  9 
MAX  -  MIN  +  19 
MIN  -  (SPY/DXR+1)  -  9 
MAX-  MIN  +  19 

Calculate  the  actual  max  and  min  positions  of  the 
superimposed  grid  over  the  river-lake  coordinate  system. 

XMIN  -  (MIN  -  l)*DXR  +  BEGLK 
XMAX  -  XMIN  +  10000. 

YMIN  -  MIN*DXR 
YMAX  -  YMIN  +  10000. 

DO  80  1-1,20 

Determine  1.)  if  superimposed  grid  is  in  river  or  lake 

2. )  the  appropriate  x-grid  box  of  actual  grid  and 

3. )  the  range  of  boxes  between  the  river  boundaries. 

XLOC  -  (MIN  +  I  -  1)*DXR  +  BEGLK  -  DXR/2.0D0 
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IF  (XLOC  .GT.  0.0D0)  GOTO  41 
L  -  (XLOC  -  BEGUO/DXL  +  1 
GOTO  50 

41  L  -  XLOC/DXR  +  LGRIDX  +  1 

50  IF  (L  .LT.  1)  GOTO  80 

Ml  -  IGRILBOL) 

M2  -  IGRIUB(L) 

IF  (L  .LE.  LGRIDX)  GOTO  55 
IM1  -  Ml  -  JMIN  -  1 
IM2  -  M2  -  JMIN  +  1 
GOTO  56 

55  IM1  -  M1*DD  -  DDM1  -  JMIN  -  4 
IM2  -  M2*DD  -  JMIN  +  4 

56  IF  (IM1  .LT.  1)  Ml-1 
IF  (IM2  .GT.  20)  IM2-20 

C 

C  Set  array  elements  representing  the  combined 

C  river  and  boundary  boxes  to  zero. 

C 


DO  70  J-M1.M2 
KOUNKI,J)-0 
70  CONTINUE 

IF(IGRLB1(L).EQ.O)GOTO  80 

c 

C  Set  all  boxes  in  superimposed  grid  representing  islands  to  stars. 
C 

Ml  -  IGRLBlCL) 

M2  -  IGRUBlOL) 

IF  a  .LE.  LGRIDX)  GOTO  72 
IM1  -  Ml  -  JMIN  +  1 
M2  -  M2  -  JMIN  1 
GOTO  73 

72  Ml  -  M1*DD  -  DDM1  -  JMIN  +  4 
M2  -  M2*DD  -  JMIN  -  4 

73  IF  (Ml  .LT.  1)  Ml-1 

IF  (M2  .GT.  20)  M2-20 

IF  (Ml  .GT.  M2)  GOTO  80 

DO  75  J-M1.M2 
KOUNT(I,J)=1001 
75  CONTINUE 

80  CONTINUE 
C 

C  Count  the  number  of  particles  in  the  superimposed  grid  boxes. 

C 

DO  450  I=1,NPTCL 

L  -  (REALCPARTCLd))  -  BEGLK)/DXR  +  2  -  MIN 
M  -  AMAG(PARTCL(D)/DXR  +  1  -  JMIN 
IF  (L  .LT.  1  .OR.  L  .GT.  20)  GOTO  450 
IF  (M  .LT.  1  .OR.  M  .GT.  20)  GOTO  450 
KOUNT(L,M)-KOUNT(L,M)+l 
450  CONTINUE 

WRITE* IUr,620)  YMIN,  YMAX 
WRITE(IUT,610)  (KOUNT(1,M),M-1,20),XMIN 
DO  580  L-2,19 

WRnEOUT.600)  (KOUNT(L,M),M-1,20) 

580  CONTINUE 
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WRITE(IUT,610)  (KOUNTX20,M),M-1 ,20),XMAX 
RETURN 

600  FORMAT(lX,20I3) 

610  FORMATClX,20I3/  -  X  -’,F8.0,’  ft*) 

620  FORMAL/  *Y  «\F8.0,'  ft\T47,F8.0.’  ft  -  YY’  I’,T60,T) 
END 
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Subroutine  PRELSE 


SUBROUTINE  PRELSE(SPILDT,  DC,  Nl,  N2,  SPCENO,  DIFFUL,  DEFFUR) 

C 

C  This  subroutine,  to  be  used  for  continuous  spills,  releases 
C  particles  (No. a  Nl  to  N2)  at  SPCENO.  Note  that  the  number  of 
C  particles  released  in  SPILDT  is  NPERDT.  Therefore  NPEROT-N2-N1+1 
C  --  The  release  will  be  at  equal  intervals  of  time. 

C  --  This  version30  has  a  modified  advection  term 
C 

C  --  Last  Date  of  Revision  :  July  03  ,1986 
C 

COMPLEX  VCAR(8000),SPCEN,PARTCUl000),VWIND,VDRIFT 

COMPLEX  SPCENO  ,VDR1 

COMMON  /VA/  VCAR ,  VWIND ,  VDR1FT 

COMMON  /VASB/IGRILB(300),IGRIUB(300),IGRLBl(300),IGRUBl(300) 
COMMON  /ASB/SPCEN,PARTCL,NPTCL,NHITBIIHrrB(l000),TYPBND(4,30O) 
COMMON  /ELOCX7/SPGOIL,ANIU,SIGMA,AK2I,AK2V,AK2T, 

S  VOLPAR , VOLPIEC  8),  SLICKR(  8) 

COMMON  /ICE/ZWND(40,40),2XKICE(20),NICEXlC20),NICEYl(20), 

S  NICEX2(20), NICEY2(20), IPOS  1(20), IPOS2(20),AMIUO,ANICE, 

$  SPAICE.NICERG.UCERG 

COMMON  /GRIDS/  DXL,  DXR,  LGRIDX,  NGRIDX,  IRGRID,  BEGLK 


Input  :  ..  Location  of  spill  center 

..  Velocity  distribution  in  river 
Output:  ..  New  location  of  each  particle 

DATA  PI  /3. 141592/ 

IKNICERG.EQ.OXJOTO  25 

DELEQ  -  Equilibrium  thickness  (ft) 

UIH  -  Threshold  current  speed  for  slick  movement  (  ft/sec) 
UFAIL  -  Failure  velocity  under  rough  ice  cover  (  ft/sec) 
FRAMFA  -  FRiction  AMplification  FActor  denoted  by  TC’  in  text 
AMIUO  -  Viscosity  of  Oil  in  g/cm-sec 

DELEQ  -  (1.67  -  8.5*(l.0-SPGOIL))/30.48 
UTH  -  (305.79/(88.68-AMIUO))/30.48 
FRAMFA  -  35.55*ANICE  +  1.0 
EF(ANICE.GT.0.045)FRAMFA  -  2.6 
TERMl»SQRT(SIGMA*(32.2)**2*62.4*(l .  -  SPGOIL)) 
UFAJOL-1.5*SQRT(2.*(l.+SPGOIL)rIERMl/(62.4*SPGOIL)) 

ROUGH  -  (ANICE/0.034)**6 
25  SPX  -  REALCSPCENO) 

.IF  (SPX  .LT.  0.0)THEN 
L  -  (SPX  -  BEGLK)/DXL 
M  -  AIMAG(SPCEN0)/DXL 
ELSE 

L  -  SPX/DXR  +  LGRIDX 
M  -  AIMAG(SPCEN0)/DXR 
ENDIF 
IPOS  -  0 

IFCL.EQ.OXHDTO  117 
DO  115  L1-1.L 

IPOS  -  IPOS+IGRIUB(Ll)-IGRILB(Ll)+3 
115  CONTINUE 

117  IPOS  -  IPOS+M-IGRILB(L+l)+3 
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IFCNICERG.EQ.OXjOTO  125 
C 

C  Determine  whether  the  spill  center  is  under  ice  or  not 
C 

ICOND-O 

DO  120  K-l.NICERG 

0<IP0S.GE.IP0Sl(K).AND.IP0S.Ii.IP0S2(K))lC0ND-l 
IF(ICOND.EQ.  l)GOTO  180 
120  CONTINUE 

C 

C  Advection  velocity  in  free-surface  conditions 
C 

125  VDRIFT  -  0.03*VWIND  +  1.1*VCAR(IP0S) 

GOTO  220 
C 

C  Advection  Velocity  under  Ice 
C 

180  VDRIFT  -  (0.0, 0.0) 

TJWATER  -  CABSCVCAR(IPOS)) 
IF(ROUGH.GT.DELEQ)GOTO  190 
IF(UWATER .LT.UTHXJOTO  220 
GOTO  200 

190  IFCUWATER  .LT.UFAIL)GOTO  220 

200  VDRIFT  -  VCAR(IPOS) 

FDELTA  -  UWATER/SQRT((l .0-SPGOIL)*32.2*DELEjQ) 

FK  -  SQRT(FRAMFA/(0.1 15*FDELTA**2  +  1.105)) 
VDRIFT  -  VDRIFTKl-FK) 

220  VDR-1  -  VDRIFT 
DO  60  I-N1.N2 

DTPTCL  -  SPILDrr*a-Nl+l)/(N2-Nl+l) 

SUMDT  -  0. 

IPASS  -  1 

PARTCUl)  -  SPCENO 
VDRIFT  -  VDR1 

40  IF(lPASS.EQ.l)GOTO  28 

IFCNHTT11  FQ  nY^vrr)  35 
DO  30  J-l^NHTTB 
lKl.EQ.IHITB(J))GOTO  60 
30  CONTINUE 
35  SPX  -  REAUPARTCUl)) 

IF  (SPX  .LT.  0.0)THEN 
L  -  (SPX  -  BEGLK)/DXL 
M  -  AIMAG(PARTCLXl))/DXL 
ELSE 

L  -  SPX/DXR  +  LGRIDX 
M  -  AIMAG(PARTCL(D)/DXR 
ENDIF 
IPOS  -  0 

IF(L.EQ.O)GOTO  517 
DO  515  L1-1.L 

IPOS  -  IPOS+IGRIUB(Ll)-IGRILB(Ll>4-3 
515  CONTINUE 

517  IPOS  -  IPOS+M-IGRILB(L+l)+3 
IF(NICERG.EQ.O)GOTO  525 
C 

C  Determine  whether  the  spill  center  is  under  ice  or  not 
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C 

ICOND-O 

DO  520  K-l, NICER G 

IK  IPOS. GE. IPOS  1(Kj^-ND.IPOS.LE.IPOS2CK))ICONI>-1 
IFCICOND.EQ.  l)GOTO  580 
520  CONTINUE 

C 

C  Advection  velocity  in  free-surface  conditions 
C 

525  VDRIFT  -  0.03*VWIND  +  1.1*VCAR(IP0S) 

GOTO  620 
C 

C  Advection  Velocity  under  Ice 
C 

580  VDRIFT  -  (0.0, 0.0) 

UWATER  -  CABSCVCAR(IPOS)) 

IF(ROUGH.GT.DELEQ)GOTO  590 
IF(UWATER .LT.UTHXjOTO  620 
GOTO  600 

590  IFCUWATER  .LT.UFAIL)GOTO  620 

600  VDRIFT  -  VCAR(IPOS) 

FDELTA  -  UWATER/'SQRTCCl  .0-SPGOIL)*32.2*DELEQ) 

FK  -  SQRT(FRAMFA/(0 . 1 1 5*FDELTA**2  +  1.105)) 

VDRIFT  -  VDR]FP(1-FI0 
C 

620  CONTINUE 
C 

C  Add  in  turbulent  fluctuation 
C 

28  VELUPV  -  ABS(REAlXVDRIFT))  +  ABSCAIMAG(VDRIFT)) 

C 

C  The  next  two  statements  prevent  division  by  zero.  86400  is  just  a 
C  large  number  in  this  case  »  no.  secs  in  a  day. 

C 

DTSMAL  -86400. 

IF(VELUFV.GT.0.01)THEN 

spx-reaUpartclCi)) 

DF(SPX.GT.O.O)DTSMAL  -  DXR/VELUPV 
IF(SPX.LE.O.O)DTSMAL  -  DXL/VELUPV 
ENDIF 

IF((DTSMAL+SUMDT)  .GT.DTPTCL)DTSMAL  -  DTPTCL  -  SUMDT 
IPASS  -  IPASS  +  1 

IF((SUMEfr+DTSMAL).GE.EfrPTCL)IPASS  -  9999 
SUMDT  -  SUMDT  +  DTSMAL 
CALL  RANDU(IX,IY,YFL) 

IX  -  IY 
ANG  -  PI*YFL 

CALL  GAUSS(IX,1.0,0.0,VRAND) 

IKSPX.LT.0.0)  THEN 

TELAPS  -  SUMDT  -  DTSMAL/2.0 

IF(DIFFUL.LT.0.0)VPRIME-3.407E-03*TELAPS**0.67/SQRT(DTSMAL) 
IF(DIFFUL.GE.0.0)  VPRIME  -  SQRT(4*DIFFUL/DTSMAL) 

ENDIF 

IF(SPX.GE.0.0)THEN 

IFCDIFFUR.LT.O.O)  DDD  -  2 . 8 8*CABS(VDRIFT) 

IF(DIFFUR.GE.0.0)  DDD  -  4*DIFFUD 
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VRPIME  -SQRKDDD/DTSMAL) 

ENDEF 

VRAND  -  VPRIME*VRAND 
VX  -  VRAND*COSCANG) 

VY  -  VRAND*SINCANG) 

VMAG  -  CABSCVDREFT) 

VDRIFT  -  VDRIFT  +  CMPLXCVX.VY) 

PARTCLCl)  -  PARTCLCD  +  ETSMAL*VDRIFT 

Check  for  spill  hitting  the  boundaries 

spx  -  realCpartclCO) 

IF  (SPX  .GT.  0.0E0)  GOTO  145 
L  -  (SPX  -  BEGUO/DXL  +  1 
M  -  AIMAG(PARTCL(D)/DXL  +  1 
GOTO  155 
145  L  -  SPX/DXR  +  1  +  LGRIDX 
M  -  AIMAG(PARTCL(D)/DXR  +1 
155  CONTINUE 

IF(M.GEJGRILB(L)AND.M.LE.IGRIUB(L)>jOTO  55 
NHTTB  -  NHTTB  +  1 

uhtbCnhitb)  -  i 

55  EF(IGRLB1(L).EQ.OX}OTO  59 

IF(M.LE.IGRUBlOL).AND.M.GE.IGRLBl(L)XJOTO  58 
GOTO  59 

58  NHTTB  -  NHTTB+1 

ihitbCnhitb)  -  I 

59  CONTINUE 
EKIPASS.NE.9999XJOTO  40 

60  CONTINUE 
RETURN 
END 
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Subroutine  PRINTl 


SUBROUTINE  PRINTlOUT,  NBRNCH) 

This  subroutine  prints  heading  and  river  configuration  data 
--  IUT  defines  the  unit  No.  to  which  the  info  will  be  written 
--  Modifications  for  addition  of  lake  were  made. 


--  Last  Date  of  Revision  :  October  29,  1985 
REAL  *8  DATRUN(2),TIMRUN 

COMPLEX  VSTRM(99,16),CORDVC99,16),VCAR(8000),CORDLBC99) 

COMPLEX  SPCEN,PARTCL(1000),VWIND,VDRIFT 
COMMON  /VA/  VCAR , VWIND, VDRIFT 

COMMON  /VEL/VSTRM,CORDV,CORDLB,Q(30),WL(30),TICE(99,20), 

$  YWID(99,20),Z(99,20),ZD(99),NSLSCrC99)>SCrANG(99), 

$  LCSTSQ(30),NSTUBEC99),NUMCONC99),NFIRCO(99),NSECO(99),KINTM 
COMMON  /VASB/IGRILB(300),IGRIUB(300),IGRLBl(300),IGRUBl(300) 
COMMON  /ASB/SPCEN  .PARTCL,  NPTCL,NHTTB,IHnB( 1 000)  ,TYPBND(4 , 300) 
COMMON  /GRIDS/  DXL,  DXR,  LGRIDX,  NGRIDX,  IRGRID,  BEGLK 
C  CALL  TSTIMECl  .TTMRUN) 

C  CALL  TSDATBCl  .DATRUN) 

WRITEOUT,  10)DATRUN,T1MRUN 
WRITEOUT,  20)NBRNCH,  IRGRID, DXR  .KINTM 
IS2-0 

DO  100  1=1, NBRNCH 
IS1-IS2+1 
IS2  -  LCSTSQO) 

WRITEOUT,30)I,ISl,IS2 
100  CONTINUE 

WR1TECIUT,40) 

IS2  -  IS2  +1 
DO  110  1=1, IS2 
J  =  NSLSClXO+1 
iwietih  =  YwnXu) 

Wm^IUT,50)LC0RDLB(l),SCTANG<l),IWIDTH,ZDCl),NSTUBECl), 

S  NUMCON(l),NFIRCO(I) 

110  CONTINUE 

WRITEOUT,  7  0) 

DO  120  1=1,  IS2 

in-nslsctOM 

WRITEOUT,  80)I,(YWnXl,  J),ZG,  J),  J-l  ,IN) 

120  CONTINUE 

WRITEOUT, 60) 

DO  130  1=1, NGRIDX 
KNUM=2 

ff0GRLBl(l).NE.0)KNUM=4 

WRITEClUT,65)I,IGRILBO),IGRIUBO),IGRLBlO),IGRUBlO), 

$  (TYPBNlXK ,  I) ,  K=  1  ,KNUM) 

130  CONTINUE 

10  FORMAT(lHl,///2X,75(,*’)/2X,75(,*’)/,  **’,7 IX, ’**’/’  **’,12X, 

S  ’SIMULATION  MODEL  FOR  OIL  SPILLS  IN  RIVERS  AND  LAKES’, 

$  8X, ’**’/’  **’,7 IX, 

$  ’**’/’  **’,7X,' DEVELOPED  AT  -  CIVIL  &  ENVIR.  ENG.  DEPT.,  ’, 

$  ’CLARKSON  UNIVERSITY’,  3X,’**’/’  **’,7X,’SPONSERED  BY  -  U.S.  ARMY 
$  CORPS  OF  ENGINEERS,  DETROIT  DISTRICT*,  3X,’**’ 
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S  r  **’,71 X.'**’/’  **’,9X,’DATE  AND  TIME  OF  RUN  :  \2A8.2X,A8 
t  1 7Y  •**’  /»  **»  71 Y  7^C*’V7X  7 

20  FORMATC///’  GEOMETRIC  PROPERTIES  OF  RIVER’/1H+,1X,29(’_’)// 

S  SX.’NO.  OF  BRANCHES  IN  UNSTEADY  FLOW  MODEL  -’,15/ 

$  5X,*NO.  OF  GRIDS  IN  X-DIRECllON  OF  RIVER  -’,15/ 

S  SX.’RIVER  GRID  SIZE  IN  ft.’,17X,’-’,F6.0/ 

S  5X,*NO.  OF  INTERPOLATIONS  BETWN  SECTIONS  -’,15// 

$  5X, ’SECTIONS  IN  EACH  BRANCH’/1H+,4X,23(’_’)// 

$  SX.’BRANCH  SECTIONS  INVOLVEDVISX.TROM  TO’) 

30  FORMAlX3(7X,I2)) 

40  FORMATClHl  ,//l  IX, INFORMATION  ON  RIVER  SECnONS’/lH+,10X,29(’_’), 

$  //2X, ’SECTION  Lower  bank  intersection  Angle  Width  Ref  datum 
S  ’  No  str  Cond.  Connect’/12X, 

%  *X-CORD  Y-CORD  (rad)  (ft.)  for  depth  tubes  No.’, 

$  ’  next  1st’) 

50  FORMAT(4X,I2,5X,F8 . 1 ,2X,F8 . 1 , 6X.F5 . 3 ,17  ,F9 .2 , 318) 

60  FORMAT(1H1///10X,’GRID  CONFIGURATION  and  BOUNDARY  TYPES  ’, 

$  ’OF  SCHEMATIZED  RIVER  AND  LAKE71H+.9X  ,58(’_’)// 

S  ’  X’,15X,T  GRID  OF, 17X, ’REJECTION  RATE  PER  TIME  STEP’/ 

$  ,’  GRED\2(’  Bank  1  Bank  2  Bank  3  Bank  4  ’)) 

65  FORMAT(I4,2X,4(3X,I3,2X),5X,4(lX,F5.4,2X)) 

70  FORMATC///,  10X, ’Geometry  of  X-Sections’/lH+,9X,22(’_’)// 

$  ’  SCTN’.lOX.’Distance  and  Depth  (ft.)  in  pairs  of  data’) 

80  FORMAT(/I3,1X,9(F6.0,’:’,F5.1.2X)/4X,9(F6.0,’:’,F5.1,2X)) 

RETURN 

END 
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Subroutine  SPRDAX 


SUBROUTINE  SPRDAX(SPILDT,TIMEr,INDPRN ,  SPAREA,  SPLTIM,  SPLRAT) 

C 

C  This  subroutine  handles  the  Axi- symmetrical  spreading  of  spill 
C  due  to  gravity,  viscous  and  surface  tension  forces 
C  --  This  version  includes  spreading  under  ice  cover. 

C  --  Modifications  for  addition  of  lake  were  made. 

C  --  Last  Date  of  Revision  :  October  29,  1985 
C 

COMPLEX  SPCEN ,  PARTCLC 1 000) 

COMMON  /VASB/IGRILB(300),IGRIUB(300),IGRLBl(300),IGRUBl(300) 

COMMON  /ASB/SPCEN ,PARTCL,NPTCL,NHITB,IHTTBCl 000),TYPBND(4 , 300) 
COMMON  /BLOCK7/SPGOIL,ANIU,SIGMA,AK2I,AK2V,AK2T, 

$  VOLPAR , VOLPIEC  8) ,  SLICKRC  8  ) 

COMMON  /S0/TMOVTN(1000),YSHIFT(1000),NMOVIN,SSHIFT 
COMMON  /SE/FEVP1  .FEVP2.CEVP.TOEVP 

COMMON  /ICE/ZWND(40,40)1ZLKICEC20),NICEX1(20),NICEY1(20). 

$  NICEX2(20), NICEY2(20), IPOS  1(20), IPOS2(20),AMIUO,ANICE, 

$  SPAICE.NICERG.LICLRG 

COMMON  /GRIDS''  DXL,  DXR,  LGRIDX,  NGRIDX,  IRGRID,  BEGLK 
COMMON  /SPREAD/  RADIUS(1000),NTRACK(1000) 

The  spill  area  is  divided  into  8  pie  segments  around  the  spill 
center.  Particles  in  each  pie  spread  according  to  modified 
Fay’s  law’s  for  axi-symmetrical  case,  (see  text  for  details) 

Input  :  ..  Spill  center 

..  Location  of  each  particle 
•  ..  oil  properties 

Output:  ..  New  loaction  of  each  particle 

Explanation  of  variables  used  only  in  this  subroutine 
VOLPIEd)  -  an  array  containing  the  volume  of  oil  in  each  pie 

segment  at  previous  time  step  NOTE:  volume  stored  is 
8  times  the  volume  in  pie 

RADIUS(I)  -  distance  to  particles  in  pie  from  spillcenter.  It  is 

assumed  that  no  more  than  500  particle  are  in  a  pie  any  time 
SPAREA  -  Free  surface  area  of  spill  (sq.  ft) 

SPAICE  -  Area  of  spill  under  ice  (sq.  ft) 

ICOND  -  0  -  Oil  in  the  pie  has  free  surface  conditions 
-  1  -  Oil  in  the  pie  is  under  ice 

DATA  ROWAT,  G  /1.92,  32.2/ 

PI  -  ATANU.)  *  4. 


Evaluate  some  constants  to  be  used  in  subsequent  computations 


DELTA  -  1.0  -  SPGOIL 

AKINER  -  0.25*AK2I*(DELTA*G)**0.25 

AKVISC  -  AK2  V*(DELTA*G/ SQRT(ANIU))**0 .166 

AKSURF  -  0.75*AK2T*(SIGMA**2/(ROWAT**2*ANIU))**0.25 

AKICE  -  0.0056666*((l-SPGOIL)*32.2*SPLRAT**2)**0.16666/ANICE 

Compute  the  mean  radius  for  all  moving  particles 


T0TRAD=0. 

DO  7  I  -l.NMOVIN 
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J-IMOVIN(I) 

TOTRAD  -  TOTRAI>fCABS(PARTCL(J)- SPCEN) 
7  CONTINUE 

TOTRAD  -  TOTRAD/NMOVIN 
SPXCEN  -  REAUSPCEN) 

SPYCEN  -  AIMACKSPCEN) 

SPAREA  -  0.0 
SPAICE  -  0.0 

Loop  500  is  working  for  one  pie  at  a  time 

DO  500  IPIE-1,8 
ANG1  -  (lPIE-l)*PI/4. 

ANG2  -  ANG1  +  PI/4. 

NPTPEE  -  0 
NPTICE  -  0 
ICOND  -  0 
DO  10  I-l.NPTCL 
)  NTRACKCD-0 


Loop  20  is  for  finding  the  ID  no’s  of  particles  belonging 
to  the  pie.  Radial  dist.  to  particle  from  center  is  also  computed 
and  stored  in  RADIUSO.  NTRACKO  stores  the  ID’s  of  particles. 

DO  20  I-l.NMOVIN 
J-IMOVIN(I) 

ATX2  -  REALCPARTOjCJ))- SPXCEN 
ATX1  -  AIMAG(PARTCLCJ))-  SPYCEN 
ANG-ATAN2CATX1 ATX2) 

IFCANG.LT.0.0)ANG  -  ANG  +  2.*PI 
ANGDEG  -  ANG*180./PI 
IFCANG.lt ANG1.0R.ANG.GE.ANG2X50T0  20 
RAD  -  CABS(PARTClXJ)-  SPCEN) 
lKRAD.GT.2.20nUTRAD)GOTO  20 
NPTPIE  -  NPTPIE+1 
RADIU S(NPTPIE)  -  RAD 
NTRACK(  NPTPIE)  -  J 
ntNICERG.EQ.OXJOTO  20 
SPX  -  REAUPARTCUJ)) 

IF  (SPX  .GT.  0.0E0)  GOTO  143 
L  =  (SPX  -  BEGUO/DXL 
M  -  (AIMAG(PARTCL(J))+YSHIFT(J))/DXL 
GOTO  153 
143  L  -  SPX/DXR  +  LGREDX 

M  -  (AIMAGC  PARTCL(  J  ))+ Y  SHIFT(  J  ))/DXR 
153  CONTINUE 

IPOS  -  0 

nUL.EQ.O)GOTO  117 
DO  115  L1-1.L 

IPOS  =  IPOS+IGRIUB(Ll)-IGRILB(Ll)+3 
115  CONTINUE 

117  IPOS  =  IPOS+M-IGRILB(L+l)+3 

DO  120  K=1,NICERG 

EFCIPOS  .GE.  IPOS  100  AND.  IPOS.  LE.  IPOS2(K))NPTICE=NPTICE+l 
120  CONTINUE 

20  CONTINUE 
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C 

C  NO  PARTICLES-  NO  SPREADING 
C 

IKNPTPIE.LT.  lXKTTO  500 
RMEAN-0. 

DO  40  I=1,NPTPIE 
40  RMEAN=RMEAN+RADIUS(I) 

RMEAN  -RMEAN/NPTPIE 
C 

C  Check  if  this  pie  should  spread  for  free-surface  or  ice  conditions. 

C  If  it  is  ice  conditions,  is  the  spilling  still  continuing. 

C 

C  WRnKV)NPTICE,NPTPIE,  RMEAN,  ICOND 

lKFLOAT(NPTICE)/FLOAT(NPTPIE).GT.  0. 5)IC0ND-1 
IKICOND.EQ.  l.AND.TIMET.GT.SPLTIM)GOTO  170 

c 

C  Determine  the  rate  of  spread  at  pie  radius 
C 

VOLNOW  -  VOLPAR*NPTPIE*  8 
TEMBAR  =  TIMET  -  SPILDT/2.0 
VOLBAR  =(VOLNOW+VOLPIKIPIE))/2.0 
IKICOND.EQ.  l)GOTO  47 

TVISOCAK2V/AK2I)**4*(VOLBAR/CDELTA*G*ANIU))**0 .333 
TERMIN=823.5*(ROWAT/SIGMA3**0.6666*SQRT(VOLBAR)*ANIU**0.3333 
$  /AK2T**1.3333 

IKTIMBAR  ,GT.TERMIN)GOTO  500 
TSURFT  -  (AK2V/AK2T)**2*(DELTA*G*ANIU)**0.3333 
S  *(ROWAT/SIGMA)*VOLBAR**0.6666 
iKTEMBAR .GT.TSURFT)  GOTO  45 
DVDT  -  VOLNOWKFEVP1  -FEVP2)/SPILET 
IKTIMBAR  .LE.TVISC)  DRDT  = 

$  AKINER*(DVDT+2*VOLBAR/T1MBAR)*SQRT(TIMBAR)/(VOLRAR**0.75) 
IKTIMBAR  .GT.TVISC)DRET  - 

$  AKVISC*(DVDT/3.WOLBAR/(TIMBAR*4))*TIMBAR**0.25/VOLBAR**0.666 
GOTO  48 

45  DRDT  -  AKSURF/(TIMBAR**0.25) 

47  IKICOND.EQ.  1)DRDT  -  AKICE/CTIMBAR* *0.33333) 

48  VOLPIKIPEE)  «=  VOLNOW 
SPRATE  -  DRDT*SPHXT/RMEAN 

C 

C  Rate  of  spreading  at  mean  pie  radius  has  been  computed.  Now  spread 
C  the  particles  in  the  pie  proportionately. 

C 

DO  140  I-l.NPTPIE 
J=NTRACK(I) 

RADOLD  -  CABS(PARTCLO)-SPCEN) 

RADNEW  -  RADOLD*(SPRATE+l) 

EKRADNEW.LT.O.O)RADNEW  =  0. 

RADIUS(l)  =  RADNEW 
X  -  REAKPARTCKJ)  -  SPCEN) 

Y  -  AJMAG<PARTCL(J)- SPCEN) 

X  -  X*RADNEW/RADOLD 

Y  -  Y*RADNEW/RADOLD 
PARTCLO)  -  SPCEN  +  CMPLX(X.Y) 

140  CONTINUE 

RMEAN=0. 
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DO  160  I-l.NPTPDE 
160  RMEAN=RMEAN+RADIUS(I) 

RMEAN  -RMEAN/NFTPDE 
170  SLICKR(IPIE)  -  RMEAN 

IF(ICOND.EQ.O)SPAREA  =  SPAREA  +  PI*RMEAN**2/8. 

IKICOND.EQ.  DSPAICE  -  SPAICE  +  PI*RMEAN**2/8. 
1F(INDPRN.EQ.1)WRITE(*I220)IPIE,NPTPIE, RMEAN 
500  CONTINUE 
C 

C  Check  for  spill  hitting  the  boundaries 
C 

DO  60  I-l.NMOVIN 
J-IMOVIN(I) 

IFCYSHIFT(J).LT.DXRXjOTO  54 

PARTCL(  J)-PARTCL(  J  )+CMPLX(0 . ,  YSHTFTC  J  )) 

SPX  -  realXpartclXj)) 

IF  (SPX  .GT.  0.0E0)  GOTO  144 
L  -  (SPX  -  BEGLfO/DXL  +  1 
M  -  AIMAG{PARTCL(J))/DXL  +  1 
DX  -  DXL 
GOTO  154 

144  L  -  SPX/DXR  +  1  +  LGRIDX 

M  -  AIMAG(PARTaj(J))/DXR  +  1 
DX  -  DXR 

154  CONTINUE 
IF(M.GT.IGRUBl(L)X50TO  54 
X-REAL(PARTClj(  J  )) 

Y-IGRUBl(L)*DX-0.25*DX 

PARTCL(J)=CMPLX(X,Y) 

NHTTB=  NHTTB+1 
IHITB(i'[HITB>=J 

GOTO  60 

54  SPX  -  REAUPARTCIXJ)) 

IF  (SPX  .GT.  0.0E0)  GOTO  145 
L  -  (SPX  -  BEGUO/DXL  +  1 
M  -  AIMAG(PARTCL( J  ))/DXL  +  1 
GOTO  155 

145  L  -  SPX/DXR  +  1  +  LGRIDX 

M  -  AIMAG(PARTCL(J))/DXR  +  1 

155  CONTINUE 

IF(M.GE.IGRILB(L).AND.M.LE.IGRIUB(Lj>30TO  55 
NHITB  =  NHTTB  +  1 
IHITBCNHITB)  =  J 

55  IKIGRLB1(L).EQ.OXJOTO  60 

EKM.LE.IGRUBia).AND.M.GE.IGRLBl(L)XrOTO  58 
GOTO  60 

58  NHITB  =  NHTTB+1 

IHITB(  NHTIB)  =  J 
60  CONTINUE 

RETURN 

210  FORMATC  VvaRNING  *  MAY  CAUSE  ERRORS  PARTICLES  IN  PIE  EXCEED  500’) 
220  FORMAT(I3,8X,I3,10X(F7.0) 

END 
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Subroutine  SPRD1D 


SUBROUTINE  SPRDUXSPILDT,  TIMET,  ENDPRN,  SPAREA  ,  ANGLE) 

COMPLEX  SPCEN.PARTOXlOOO),  XYKlOOO) 

COMMON  /VASB/IGRILB(300),IGRIUB(300),IGRLBl(300),IGRUBl(300) 

COMMON  /ASB/SPCEN,PARTCL>NPTCL,NHITB,IHITB( 1 000),TYPBND(4, 300) 
COMMON  /BLOCK7/SPGOIL,ANm,SIGMA,AK2I,AK2V,AK2T, 

$  VOLPAR  .VOLPIEC 8),  SLICKRC  8 ) 

COMMON  /BLOCK8/AKC10,AKC20,AKC30 

COMMON  /SO/IMOVIN(lOOO),YSHIFT(lOOO),NMOVIN,SSHIFT 

COMMON  /SE/FEVP1  ,FEVP2 

COMMON  /ICE/ZWND(40,40),ZLKICE(20),NICEXl(20),NICEYl(20), 

S  NICEX2(20),NICEY2(20),IPOS1(20),IPOS2C20)^MIUO^NICE, 

$  SPAICE.NICERG.LICERG 

COMMON  /GRIDS/  DXL,  DXR,  LGRIDX,  NGRIDX,  IRGRID,  BEGLK 
COMMON  /SPREAD/  RADIUS(1000),NTRACK(1000) 

DIMENSION  SPRATE(2),NPT(2),XLBC2),XSQ(2) 

This  Subroutine  handles  one  dimensional  spreading  in 

The  spill  area  is  divided  into  strips.  Particles  in  each  strip 

spreads  according  to  spreading  law  for  one -dimensional  case. 

(see  text  for  details) 

Input  :  ..  Spill  center 

..  Location  of  each  particle 
..  oil  properties 

Output:  ..  New  loaction  of  each  particle 

Explanation  of  variables  used  only  in  this  subroutine 
RADIUS(I)  -  distance- to  particles  in  a  strip  from  strip  center. 

A  maximum  of  500  particles  can  be  in  a  strip  at  any  time 
IMOVIN(l)  -  Index  in  array  PARTCL  of  moving  particles 

ex.  1,3,4,5,7,11,12,13 .  etc. 

NMOVIN  -  Number  of  Moving  Particles 
SPAREA  -  Free  surface  area  of  spill  (sq.  ft) 

5PAICE  -  Area  of  spill  under  ice  (sq.  ft) 

ICOND  -  0  -  Oil  in  the  strip  has  free  surface  conditions 
»  1  -  Oil  in  the  strip  is  under  ice 

XSQ  -  sum  of  square  of  the  distances  from  center  line  to  mean  edge 

of  the  slick.  The  same  variable  later  store  the  standard 
deviationx2. 

--  Last  Date  of  Revision  :  September  19,  1986 
DATA  ROWAT,  G  ,  PI  /1.92,  32.2,  3.141592/ 


Evaluate  some  constants  to  be  used  in  subsequent  computations 

DELTA  -  1.0  -  SPGOIL 

AKINER  -  AKC10*(G*DELTA/DXR)**0.3333 

AKVISC  -  AKC2 0 *(G *DELTA)* *0.25 /( SQRT(DXR)* ANIU* *0.125) 

AKSURF  =  AKC30*SQRT(SIGMA/ROWAT)/(ANIU**0.25) 

CC1  -  0.6666*AKC10*(G*DELTA)**0.3333 
CC2  -  AKC20*(G*DELTA/SQRT(ANIU))**0.25 


To  minimize  some  later  computing,  determine  XP-grid  boxes  of 
extreme  particles. 

COST  -  cosCangle) 

SINT  -  SIN(ANGLE) 
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LMAX-0 
LMIN-10000 
DO  40  I-l.NMOVTN 
J-IMOVIN(I) 

SPX  -  REAliPARTCUCJ))  -  BEGLK 
SPY  -  AIMAG(PARTCIjC J )) 

XP  -  SPX*COST  +  SPY*SINT 
YP  -  SPY’COST  -  SPX’SINT 
XYP(J)  -  CMPLX(XP,YP) 

L  -  XP  /DXR  +  1 
IFCL.GT.LMAX)LMAX-L 

if(l.lt.lminX.min-l 

40  CONTINUE 
SPAREA  -  0.0 
SPAICE  -  0.0 
C 

C  Loop  500  :  One  strip  at  a  time 
C 

DO  500  ISTRIP=LMrN,LMAX 
YPBAR-0. 

NPTSTR  -  0 
NPTICE  -  0 
ICOND  -  0 
DO  50  I-l.NMOVIN 
J-IMOVIN(I) 

XP  -  REAIXXYP(J)) 

L  -  XP/DXR  +  1 
iKistrip.ne.lXxtto  50 

NPTSTR  -  NPTSTR +1 
NTRACKCNPTSTR)  =  J 
YPBAR  -  YPBAR+AIMAG(XYP(J)) 

DFCNICERG.EQ.OXjOTO  50 
SPX  -  realCpartclCj)) 

IF  (SPX  .LE.  0.0)  THEN 
L  -  (SPX  -  BEGLK)/DXL 
M  -  (AIMAG(PARTCL(  J))+Y  SHEFT( J))/DXL 
ENDIF 

IF  (SPX.GT.0.0)  THEN 

L  -  SPX/DXR  +  LGRIDX 
M  -  (AIMAG(PARTCL(  J  ))+ Y  SHEFlX  J  ))/DXR 
ENDIF 
IPOS  -  0 

IF(L.EQ.O)GOTO  117 
DO  115  Ll-l.L 

IPOS  -  IP0S+IGRIUB(Ll)-IGRILB(Ll)+3 
115  CONTINUE 

117  IPOS  -  IP0S+M-IGRILB(L+l)+3 

DO  120  K=1,NICERG 

IKIPOS  .GE.  IPOS  lOOvAND.  IPOS  .LE.  IPOS2(K))NPTICE-NPTICE+ 1 
120  CONTINUE 

50  CONTINUE 

C 

C  Must  have  at  least  two  particles  in  the  strip  for  spreading 
C 

IF(NPTSTR.LT.  2)GOTO  500 
YPBAR -YPBAR/NPTSTR 
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DO  60  I-l.NPTSTR 
J-NTRACK(I) 

RADIUS(I)-  AJMAG(XYKJ))-YPBAR 
60  CONTINUE 

IF(FLOAT(NPTICE)/FLOAT(NPTSTR)  .GT.0 . 5)lCOND»  1 


XLE  are  the  distances  to  the  spreading  edge  of  slick,  in  the  strip 
computed  based  on  the  mean  distance  to  particles  from  strip  center. 
index-1  for  +  dir  from  YEAR  and  2  for  -  dir  from  YEAR 

XLE(1)  -  0. 

XLEC2)  -  0. 

XSQ(l)  -  0. 

XSQC.2)  -  0. 

NFIX2)  -  0 
DO  80  I-l.NPTSTR 

IP(RADIUS(l).GE.0.0)  THEN 
XLE(  1  )«*XLE(  1  )+RADIU  SCl) 

XSQ(1)  -  XSQ(1)  +  RADIUS(I)*RaDIUS(I) 

ELSE 

XLE(2)=XLE(2)+RADrUS(l) 

XSQ(2)-XSQ(2)  +  RADIU  S(l)*RADIUS(l) 

NFlX2)=NPTC2)+ 1 
ENDEF 

)  CONTINUE 

NPTCl)  -NPTSTR-NFK2) 

DO  85  K  -  1,2 

xsq(XMnptCk)*xscXk)-xije(k)**2)/(nfiXk)*(nfi(iO-  1 .)) 

XSQOO  -  2.  *  SQRTXXSQdO) 

XLBOO  -xlbOO/nptOO 

)  CONTINUE 

iKlCOND.EQ,  1  XjOTO  170 

If  slick  thickness  (STHICK)  is  less  than  ultimate  thickness 
for  spreading  (UIHIQO,  then  no  spreading 
NOTE  that  XLEC2)  is  always  negative 


STHICK  -  VOLPAR*(NFTCl)+NPT(2))/(DXR*(XLE(l)-XLBC2))) 
UTHICK  -  1.3458E-5  *  (VOLPAR*NMOVIN)**0.25 
iKSTHICK.LT.UTHiaOGOTO  500 


Determine  the  rate  of  spread  at  mean  radius  (leading  edge) 

DO  130  K-1,2 
VOLNOW  -  VOLPAR*NPT(K) 

TMBAR  -  TIMET  -  SPILDT/2.0 
VOLBAR=VOLNOW 

DLDT  -  SQRT(VOLNOW/DXR)*(SQRT(l -FEVP2)- SQRT(l -FEVP1))/SPILDT 
VOLPDX  -  VOLNOW/DXR 
C 

C  TVISC  -  Time  in  secs  for  transition  from  Inertia  to  Viscous 

C  TSURFT  -  Time  in  secs  for  transition  from  Viscous  to  Surf  Tension 

C  TERMIN  -  Time  in  secs  at  spreading  termiation 

C  DRET  -  Spreading  rate  at  leading  edge  (ft/sec) 

C 
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TSURFT  -  (AKVISC/AKSURF)**2.6666*VOLBAR**1.3333 
TVISC-(AKVISC/AKINER)**3.428S*VOLBAR  **0.5714 
IF(TIMBAR  .LE.TVISC)  DRET  - 

S  CCl*(TIMBAR**0.6666*DLDTArOLPDX**.l666  +  (VOLPDX/I1MBAR)**0.3333) 

ifctimbar  .gt.tvisc  .and.timbar  .le.tsurft)drdt  - 

$  CC2*(.375*SQRT(VOLPDX)*TIMRAR**(-0.675)  +  DLDT»TIMBAR**0.375) 
IFClTMBAR ,GT.TSURFT)DRDT  -  0.75*AKSURF/(TIMBAR**0.25) 

SPRATEOO  -  DRDT*SPIIJDT/ABS(XLEOO) 

ipCsprateOO.lt.  - 1  .o)sprateGO—  i  .0 

130  CONTINUE 

c 

C  Spreading  rates  for  mean  leading  edges  on  either  side  has  been 
C  computed.  Now  spread  the  particles  proportiontely. 

C 

DO  140  I-l.NPTSTR 
J-NTRACK(l) 

if(radius(i).ge.o.o.and.abs(radius(D).lt.xsq(i)) 

S  YPNEW«RADIUS(D*(SPRATE(1>+1) 

IP(RADIUS(I).LT.  0 . 0  .AND.ABS(RADIUS(I)).LT.XSQ(2)) 

S  YPNEW~RADIUS(I)*(SPRATE(2>+1) 

RADIUSO)  -  YPNEW 

XP  -  realCxypO)) 

YP  -  YPBAR  +  YPNEW 
XYP(J)  -  CMPLXCXP ,  YP) 

X  -  XP*COST  -  YP*SINT  +  BEGLK 
Y  -  YP*COST  +  XP*SINT 
PARTCLO)  -  CMPLX(X.Y) 

140  CONTINUE 

C 

C  Compute  the  mean  distances  to  leading  edges  after  spreading. 

C 

XLE(l)=0. 

XLBC2)=0. 

DO  160  I=1,NPTSTR 

IF(RADIUS(I).GE.0 .0)XLEC1)=XLE(1>RADIUS(I) 

ifcradius(i).lt.o  .o)xleC2)=xue(2)+radiusCi) 

160  CONTINUE 

XLECl)  *=XLE(l)/NPT(l) 

XLEC2)  -»XLBC2)/NPT(2) 

SPAREA  -  SPAREA  +  DXR*(XLE(l)+  ABS(XLE(2))) 

170  IF(INDPRN.EQ.1)WRITEC*,220)ISTR  IP, NPTSTR,XLEC2), YEAR, XLECl) 

IFCICOND.EQ.I)  SPAICE  -  SPAICE  +  DXR*CXLECl>+  ABSCXLEC2)» 
IKICOND.EQ.  DWRITEC*  ,230) 

500  CONTINUE 
C 

C  Move  the  particles  back  into  the  upper  channel  which  were 
C  shifted  by  ORIENT  routine.  Also  check  for  the  particles  hitting 
C  the  boundaries 
C 

DO  460  I=l,NMOVIN 
J-IMOVINCl) 

if(yshift(j).lt.dxr)goto  54 

PARTCLC  J)=PARTCLC  J>fCMPLX(0 .  .YSfflFTCJ)) 

SPX  -  REAL( PARTCLC J)) 

IF  (SPX  .GT.  0.0E0)  GOTO  145 
L  -  (SPX  -  BEGUO/DXL  +  1 
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M  -  AIMAG(PARTCL(J))/DXL  +  1 
DX  -  DXL 
GOTO  155 

145  L  -  SPX/DXR  +  LGRIDX  +  1 

M  -  aima<XpartcxXj))/dxr  +  1 

DX  -  DXR 

155  CONTINUE 
C 

C  Check  for  spill  hitting  the  boundaries 
C 

IF(M.GT.IGRUB1(L))GOTO  54 
NHTTB-NHrre+1 
iHrTB(NHrrB)-j 
X-REAL(PARTCL(J)) 

Y«IGRUBlCL)*DX-0.25*DX 

PARTCL(J)“CMPLX(X,Y) 

GOTO  460 

54  SPX  -  REAIXPARTCLC J )) 

IF  (SPX  .GT.  0.0E0)  GOTO  146 
L  -  (SPX  -  BEGUO/DXL  +  1 
M  -  AIMAG(PARTCL(J))/DXL  +  1 
DX  -  DXL 
GOTO  156 

146  L  -  SPX/DXR  +  LGRIDX  +  1 

M  -  AIMAG(PARTCL(J))/DXR  +  1 
DX  -  DXR 

156  CONTINUE 

IF(M.jGE.IGRILB(L).AND.M.IJE.IGRIUB(L)XXyrO  55 
NHTTB  -  NHITB  +  1 
JHITBCNHITB)  -  J 
GOTO  460 

55  IF(IGRLB1(L).EQ.O)GOTO  460 

if(m.lf..igrubi(l).and.m.ge.igrlbi(l)Xjoto  58 

GOTO  460 

58  NHTTB  -  NHTTB+1 

THTTBCNHITB)  -  J 
460  CONTINUE 

RETURN 

220  FORMAT(I4,7X,I3,5X,F7.C,F7.0,F7.0) 

230  FORMATdH+,50X,’  ICE’) 

END 
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Subroutine  VELDIS 


SUBROUTINE  VELDISOPROPT,  NBRNCH,  ILVCAR) 

This  program  computes  the  Velocity  along  and  across  the  river 
(Two-Dimensional  velocity  distribution) 

--  Modifications  for  addition  of  lake  were  made. 

--  Last  Date  of  Revision:  October  29,  1985 

COMPLEX  COMPXY,VSTRM(99, 16),CORDV(99, 16),VCAR('8000),CORDLB(99) 
COMPLEX  VWIND.VDRIFT 

COMMON  /VELArSTRM,CORDV,CORDLB,<^30),WL(30),TICE(99,20), 

$  YWID(99,20),2X99,20),ZD(99),NSLSCr(99),SCrANG(99), 

$  LCSTSQ(30),NSTUBE(99),NUMCON(99),NFIRCO(99),NSECO(99)>KINTM 
COMMON  /VAJ  VCAR, VWIND.VDRIFT 

COMMON  /VASB/IGRILB(300),IGRIUB(300),IGRLBl(300),IGRUBl(300) 

COMMON  /V/IZRBX(100),IZRBY(100),NZRVB 

COMMON  /GRIDS/  DXL,  DXR,  LGRIDX,  NGRIDX,  IRGRID,  BEGLK 

Input  :  Q  &  WL  both  of  which  are  arrays  of  size  at  least  NBRNCH 

and  NBRNCH+1  re  spec.  ILVCAR  and  BEGLK  are  used  as  indices 
for  determining  where  to  write  velocities  in  VCAR  and  if 
grid  boxes  are  in  river  or  lake. 

Output  :  x  &  y  components  of  velocity  in  the  river  for  each  grid  box 
Also  computed  are  velocities  at  sections  perpendicular  to 
stream  thalweg  and  co-ordinates  of  the  position  at  which 
they  are  acting 

This  program  computes  velocities  in  the  following  manner: 

1)  Go  from  branch  to  branch  -  (Branch  here  refers  to  branches  in 
Unsteady  flow  model 

2)  Then  do  for  each  section  in  a  branch 

3)  Finally  scans  across  the  river,  streamtube  by  streamtube 
The  above  numbers  also  show  the  looping  sequence  where  1  is  the 
outermost  and  3  is  the  innermost 

IS2-0 

DO  80  IB-1,  NBRNCH 

151- IS2+1 

152- LCSTSQ(IB) 

TBRLEN=0. 

DO  30  IS-IS1.IS2 

ISCON  -  NFIRC0(IS) 

TBRLEN=TBRLEN+CABS(CORDLB(lS)-  CORDLBClSCON)) 

30  CONTINUE 

IF(IB.EQ.NBRNCH)IS2=IS2+1 

SCTLEN=0. 

DO  80  IS-IS1.IS2 
QSTUBE-Q(IB)/N  STUBE(IS) 

ATUBE1-0. 

YSTB1  -  0. 

ISCON  -  NFIRCOOS) 

SCTLEN-SCILEN+CABS(CORDLB(lS)-CORDLB(lSCON)) 

IBCON  -  IB+1 

ff(NUMCON(IS2).NE.2l)GOTO  38 
IF(NSECO(lS2).EQ.999)GOTO  38 
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36  IBCON  -  IBCON+1 

LASTSC  -  LCSTSQ(IBCON  - 1) 

IF(NUMCON(LA.STSC).NE.21XjOTO  36 
38  IF(IS2.EQ.NFIRCO(IS2-l)j\ND.ClS2-l).EQ.NFffiCO(IS2))IBCX>N-IB 

■WLSCT-WUlB)  -  CWLCIB)  -WL(IBCON))*SCrLEN/TBRLEN 
SARIY-O. 

NIY-NSLSCT(lS)+l 
SXAREA  -  0. 

DO  40  IY-2.NIY 
DYRS-YWHXIS.IY)- YWHXIS.IY- 1) 

PERI-SQRT(DYRS**2  +  CZ(IS,IY)-Z(IS,IY- l))**2) 

ICKINEWD 

IF(TICE(IS,IY).GT.0.001wAND.TICE(IS,IY-1).GT.0.001)ICEINI>“1 
TISUM  -  TICEClS,IY>+-TICEaS,IY-l) 

IKICEIND.EQ.  1)PERI-PERI+DYRS 
iKlCEIND.EQ.OTnSUM-0 .0 

AIY-DYRS*((Z(lS,IY)+ZClS,IY-l)-TISUM)/2.+\VLSCr-ZD(IS)) 

IFCAIY.LT.0.0)AIY  -  0.0 

HR-AIY/PERI 

SARIY=SARrY+AIY*HR**0.6666 
SXAREA  -  SXAREA  +  AIY 
40  CONTINUE 

NSTUB1  -  NSTUBE(IS)-1 
DO  70  ITB=1,NSTUB1 
QSET=QSTUBE*ITB 
PSARIY-O. 

SPERI  -0. 

SAIY  =0. 

DO  60  IY-2.NIY 

DYRS=YWIDCIS,IY)- YWID(IS,IY  - 1) 

PERI=SQRT(DYRS**2  +  (Z(IS,IY)-Z(IS,IY- 1))**2) 

ICEIND=0 

IF(TICE(IS,IY).GT.0.001  .AND.TICEaS.IY- 1).GT.0.001)ICEIND=1 
TISUM  -  TICE(IS,IY)+TICE(IS,IY - 1) 

DFCICEIND.EQ.  DPERI-PERI+DYRS 

iHiceind.eq.o)tisum=o.o 

AIY  -DYRS*((ZClS,IY)+Z(lS,IY-l)-TISUM)/2.  +  WLSCT  -  ZlXlS)) 

IFCAIY.LT.0.0)AIY  -  0.0 

HR  -  AIY/PERI 

ARIY-AIY*HR**0 . 6  6  6  6 

PSARIY-  PSARIY  +  ARIY 

SPERI  -  SPERI  +  PERI 

SAIY  -  SAIY  +  AIY 

QIY  -  Q(IB)‘PSARIY/SARIY 

IFCQIY.LT.QSETXJOTO  60 

QIY1  -  Q(IB)*(PSARIY  - ARIY)/SARIY 

YSTB2  -  YWID(lS.IY-l)+DYRS»(QSEr-QIYl)/(QIY-QIYl) 

YSTB  -  ( Y STB  1  +  Y STB2)/2 . 

YSTB1  -  YSTB2 

ATUBE  -  SAIY  -  AIY+AIY*(  YSTB2  -  YWID(IS .  IY  - 1  ))/DYR  S 
VSTRM(IS.ITB)  -  CMPLX(QSTUBE/CATUBE-ATUBE1),0.) 

ATUBE  1  -  ATUBE 
ANGL-  SCTANGOS) 

cordv(is,itb)-cordlb(is)+cmplx(ystb*cosCangl),ystb*sinCangl)) 

GOTO  65 

60  CONTINUE 
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65  CONTINUE 
70  CONTINUE 

NSra-NSTUBE(IS) 

VSTRM(IS,NSTB)-CMPLX(QSTUBE/(SXAREA-ATUBE1),0.) 

YSTB  -  (YWnXlS,NIY)+YSTBl)/2. 

CORDV(IS,NSTB)-CORDLB(IS>h^CMPLX(YSTB*COS(ANGL),YSTB*SIN(ANGL)) 
80  CONTINUE 

c 

C  At  this  point  2-D  stream  velocity  (Along  the  river  section  by  section 
C  and  across  the  river  streamtube  by  streamtube)  is  assigned  to 
C  VSTRM’s  x-component.  Therefore  it  has  the  correct  magnitude  but  not 

C  the  correct  direction.  Later  this  magnitude  will  be  correctly 

C  distributed  into  x  &  y  components  with  the  correct  direction. 

C  CORDV  stores  the  location  at  which  VSTRM  is  acting 

C  NOTE  :  CORDV  and  VSTRM  are  both  2-D  COMPLEX  arrays 
C 

C  Now  assign  the  correct  direction  to  velocities 
C 

IS2-LCSTSQ(NBRNCH) 

DO  100  IS-1.IS2 
NSTB  -  NSTUBECIS) 

DO  100  ITB-1,NSTB 
NFIRST-NFIRCOClS) 

ISCON  -NFIRST 

IF(ITB.GT.NSTUBE(NFIRST))ISCON-NSECO(IS) 

riBCON-ITB 

ff(NUMCON(IS).EQ.  1  lXKDTO  97 

IFCNUMCON(lS).EQ.  1 2  .AND.ITB.GT.NSTUBE(NFIRST))lTBCON= 

S  ITB-NSTUBECNFIRST) 

IKNUMC0N(IS).NE. 21 XXXIX)  97 
IKNSEC0(IS).NE.999X30T0  97 
DO  93  I  -1,999 
J  -  IS  -I 

IKNSECOQO.NE.OXjOTO  95 
93  CONTINUE 

95  ITBCON  -  ITB  +  NSTUBECJ-l) 

97  VMAG-REALCVSTRMCIS.ITB)) 

COMPXY  -  CORDV(ISCON,ITBCON)-CORDV(IS,ITB) 

RAD  =  CABS(COMPXY) 

WX  -  VMAG*REAL(COMPXY)/RAD 
WY  -  VMAG*AIMAG(COMPXY)/RAD 
VSTRM(IS.ITB)  -  CMPLX(WX,WY) 

100  CONTINUE 
C 

C  The  next  segment  writes  velocities  and  co-ords  to  a  file  if  IPROPT-1 
C  This  information  can  be  used  by  program  DIRPLOT  to  plot  velocities 
C 

IF(IPROPT.EQ.OXX)TO  415 
DO  110  IS-1.IS2 
NSTB  -  NSTUBECIS) 

DO  110  ITB=*1,NSTB 

WRrrEO.iiooXroRDvCis.rrBj.vsTRMCis.rrB) 

110  CONTINUE 

c 

C  From  the  velocities  computed  at  stream  cross  sections,  now  assign  the 
C  velocities  to  each  grid  center  in  the  Cartesian  System. 
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C  First  assign  the  velocity  to  a  grid  box  if  co-ords  are  within  the  box. 

C 

415  DO  120  IS  -1,IS2 

NSTB  -  NSTUBEOS) 

DO  120  ITB  -  l.NSTB 

L  -  REALCCORDV(IS.ITB))/DXR 
M  -AIMAG(CORDV0S  ,ITB))/DXR 
IPOS  -  ILVCAR 
IFCL.EQ.OXKyiX)  117 
DO  115  L1-1J- 

IPOS  -  IPOS+IGRIUBCL1 +LGRIDX)  -  IGRILB(L1  +LGRIDX>+3 

115  CONTINUE 

117  IPOS  -  IPOS+M-  IGRILBCL+LGRIDX+l)+3 

VMAG  -  CABS(VCAR(IPOS)) 

IF(VMAG.LE.0.001)VCARCIPOS)  -  VSTRM(IS,ITB) 
IFCVMAG.GT.O.OOl)VCAR(lPOS)  -  (VCAR(IPOS)+VSTRM(IS,rrB))/2. 

120  CONTINUE 

Now  check  for  the  boxes  with  no  assigned  velocity  yet; 

For  KINTM  intermediate  Sections  interpolate  in  streamtube  between 
Two  adjacent  X-scetions  and  assign  a  weighted  mean  velocity 


DO  130  IS=1  ,IS2 
NSTB  -  NSTUBECIS) 

DO  130  ITB  -  l.NSTB 
NFIRST-NFIRCOCIS) 

ISCON  -NFIRST 

IFOTB.GT.NSTUBE(NFIRST))ISCON-NSECO(IS) 

rTBCON=ITB 

lHNUMCON(lS).EQ.ll)GOTO  197 

IF(NUMCON(IS).EQ.12J^ND.rrB.GT.NSTUBE(NFIRST))rrBCON- 
S  ITB-NSTUBE(NFIRST) 

LF(NUMC0N(IS).NE.21XJ0TO  197 
IF(NSECOClS).NE.999)GOTO  197 
DO  193  I  =1,999 
J  -  IS  -I 

EF(NSECO(J).NE.O)GOTO  195 
193  CONTINUE 

195  ITBCON  =  ITB  +  NSTUBE(J-l) 

197  CONTINUE 

DO  130  K-l, KINTM 

COMPXY-  ((KINIM+1  -Kj*CORDV(lS,rrB)+K*CORDV(lSCON, ITBCON)) 
$  /(KINTM+1) 

L  -  REAUCOMPXY)/DXR 
M  -AIMAG(COMPXY)/DXR 
EPOS  -  ILVCAR 
IFCL.EQ.O)GOTO  127 
DO  125  L1=1,L 

IPOS  -  IPOS+IGRIUBai+LGRIDX)-IGRILBCLl+LGRIDX)+3 
125  CONTINUE 

127  IPOS  -  IPOS+M-IGRILB(L+IjGRIDX+1)+3 

VMAG  =  CABS(VCAR(lPOS)) 

IF(VMAG  .LE.0 .00 1  )VCAR(IP0S)“ 

$  (CKINTM+1  -K)rVSTRM(lS,ITB)+KrVSTRM(lSCON,ITBCON))/(KINTM+l) 

130  CONTINUE 

C 
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C  There  may  still  be  boxes  without  any  assigned  velocities 
C  Now  velocities  will  be  assigned  based  on  the  average  value  of  the 
C  surrounding  boxes 

C  Start  from  column  LGRIDX+2  and  then  move  to  subsequent  ones.  The  first 

C  column  is  neglected.  Before  the  process  begins  a  value  of  0.0011  is 

C  assigned  to  the  grids  just  outside  the  boundary  (a  technique  used 
C  purely  to  simplify  computations). 

C 

IY1-1 

DO  133  I-l.NGRIDX 

IY2-IGRIUB(I)  -  IGRILB(l)+2 +IY1 
VCAR(IY1)-0.0011 
VCAR(IY2)**0.001 1 
IY1  -  IY2+1 
133  CONTINUE 

IY2  -  ELVCAR  -  1 
LP1  -  LGRIDX  +  1 
DO  150  L=LP1  .NGRIDX 
IY1  -  IY2+3 

IY2  -  IGRIUB(L)  -  IGRILB(L)4-IY1 
DO  150  M  -  IY1.IY2 
COMPXY  -  (0.,0.) 

COUNT  -  0. 

IROW  -  M-  IY1  +IGRILB(L) 

IF(IGRLBl(L).EQ.O)GOTO  141 

iKirow.ge.igrlbiCl)and.irow.le.igrubi(l))vcar(m)=o.ooii 

141  n<CABS(VCAR(M)).GT.O.OOl)GOTO  150 

c 

C  If  first  column  in  river,  don’t  use  lake  grids  to  left 
C 

IKL  .EQ.  1)  GOTO  142 
EP((IGRILB(L-  l)-IROW)  .GT.  2)  GOTO  142 
IFCCIROW-IGRIUBCL-  l))  .GT.  2)  GOTO  142 
MM  -  M+IGRILBCL)-IGRIUB(L- 1)  -  3 
lKCABS(VCAR(MM)).LE.  0.001  )GOTO  142 
COMPXY-COMPXY+VCAR(MM) 

COUNT  -  COUNT+1 

142  MM  =  M+IGRIUB(L)  -  IGRILB(L+1  )+3 
DF((IGRILB(L+1)-IR0W)  .GT.  2)  GOTO  144 
IK(IR0W-IGRIUBCL+1))  .GT.  2)  GOTO  144 
IEtCABS(VCARGMM))  .LE.  0 . 00 1  )GOTO  144 
COMPXY-COMPXY+VCAR(MM) 

COUNT  -  COUNT+1 

144  .  IF(CABS(VCARCM-l)).LE.0.00lX5OTO  146 

COMPXY-COMPXY+VCAR(M- 1) 

COUNT  -  COUNT+1 

146  ff(CABS(VCAR(M+l)).LE.O.OOl)GOTO  148 

COMPXY=COMPXY+VCAR(M+l) 

COUNT  -  COUNT+1 
1 4  8  VCAR(M)=COMPX  Y  /  COUNT 

150  CONTINUE 

C 

C  For  the  boxes  defined  thru  input  data,  set  VCAR-0.0 
C 

DO  164  IBOX=  1 , NZRVB 

IFCNZRVB.GT.IOOXJOTO  164 
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L  -  IZRBXdBOX)  -  1 
M  -  ERBY(IBOX)  -  1 
IPOS  -  0 

IFCL.EQ.OXJOTO  163 
DO  160  L1-1.L 

IPOS  -  IPOS+IGRIUB(Ll)-IGRILB(Xl)+3 
160  CONTINUE 

163  IPOS  -  IPOS+M-IGRILBCL+1  )+3 
VCAR(LPOS)  -  0.0 

164  CONTINUE 
IFdPROPT.EQ.ORETURN 

Write  the  river  grid  velocities  to  a  file. 

Jl-ILVCAR+2 

IRGRID  =  NGRIDX-LGREDX 
DQ  170  1=1, IRGRID 
X  -  I*DXR  -  0.5*DXR 
II  =  I+LGREDX 

J2  -  IGRIUBCII)  -  IGRILB(n)+J  1 
DO  165  J-J1.J2 

Y  -  (IGRHJ3(II)+J- Jl)*DXR-0.5*DXR 
WRnE(4,2100)X,Y,VCAR(J) 

165  CONTINUE 
J1-J2+3 

170  CONTINUE 
RETURN 

123  FORMAT(3I5f3F8.2,2F10.0) 

2100  FORMAT(2F9.0,2F7.2) 

END 
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SUBROUTINE  GAUSSOX.S.AM.V) 
A-0.0 

DO  50  1-1,12 
CALL  RANDUOX.IY.Y) 

IX-IY 

50  A-A+Y 

V-(A-6.0)*S+AM 

RETURN 

END 


SUBROUTINE  RANDUCDC.IY.YFL) 

IY  -  IX*65539 

IKIY)5,6,6 

5  IY  -  IY  +  2147483647+1 

6  YFL  -  IY 

YFL  -  YFL*0.46566l3E-9 
YFL-RNlX-l) 

RETURN 

END 
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SUBROUTINE  INTlXS,  IDIM,  TLKQ,  RLKQ,  INDPRN) 

C 

C  This  subroutine  reads  in  a  reference  stream  function  file 
C  '  supplied  in  (LAKEIN1T.PSI)  logical  unit  14.  If  another  discharge 
C  besides  the  reference  discharge  is  required,  appropriate  adjustments 

C  to  the  stream  function  values  are  made.  These  values  are  only 

C  used  as  a  first  best  guess. 

C 

C  Last  Date  of  Revision  :  September  10,  1985 
C 

Q  ********************************************************************** 

DIMENSION  S(40,40) 

COMMON  /GPARM/  RPARM(23),  IPARM(54),  ZPARM(2) 

DATA  SPVAL,  IFIRST  /1.0E20,  0/ 

IF  (IFIRST  .NE.  0)  GOTO  55 
IFIRST  -  1 

FILE  14  LAKEINTT.PSI  OPENED  IN  OILEX18 

REWIND  14 
IM  -  IPARM(1) 

JM  -  IPARM(2) 

READ(14,30,END=10)  ((S(I,J),I=1  ,IM),J=1  ,JM) 

CONVERT  CFS  TO  CMS 

DO  SO  1=1, IM 
DO  50  J=1,JM 

IF(S(I,J)  .EQ.  SPVAL)  GOTO  50 
S(I,J)  =  S(I,J)/35.3198 
50  CONTINUE 

UPDATE  STREAM  FUNCTION  TO  CURRENT  VALUES 

GOTO  65 
55  REWIND  15 

READC15, 35, END-10)  ((S(I,J),I-1,IM),J-1,JM) 

65  IF  (TLKQ  .EQ.  RLKQ)  RETURN 

ADDQ  -  (TLKQ-RLKQ)/(2.0*35.3198) 

DO  40  1=1, IM 
DO  40  J-l.JM 

IF  (S(I,J)  .EQ.  SPVAL)  GOTO  40 
IF  (S(I,J)  .GT.  0.0D0)  S(I,J)  -  SO.D+ADDQ 
IF  (S(I,J)  .LT.  0.0D0)  S(I,J)  -  S(I,J)-ADDQ 
40  CONTINUE 

PRINT  CURRENT  STREAM  FUNCTION  VALUES  (CMS) 

45  IFONDPRN  .EQ.  1)  WRITE**, 60) 

IF(INDPRN  .EQ.  1)  CALL  PRNT(6,  S,  IDIM,  IM,  JM,  SPVAL) 

RLKQ  =  TLKQ 
RETURN 

NO  INITIAL  CONDITION  FILE,  SET  STREAMFUNCTION  TO  ZERO 
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10  CONTINUE 

DO  20  I  -  1,  IM 
DO  20  J  -  1,  JM 
20  S0,J)  -  0. 

30  FORMAT(6E12.5) 

35  FORMATCE12.5) 

60  FORMAft/TNITIAL  STREAM  FUNCTION  FILE  FOR  LAKE*/) 
RETURN 
END 
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I 

I 

I 

I 


SUBROUTINE  OUTPClTME,  'ITS,  IDJM) 

C 

C  This  subroutine  writes  stream  function  values  to  file  CLAKETEMP.PSI) 

C  logical  unit  15  for  later  use  when  determining  velocities  in  lake  grid 

C  boxes.  Only  values  calculated  after  an  initial  period  of  20  hours  are 

C  written  to  the  file.  After  that,  values  are  written  according 

C  to  the  update  interval  (UFDT)  of  the  unsteady  river  model. 

C 

C  Last  Date  of  Revision  :  September  24,  1985 
C 

Q  *****************************************************  **************** 

COMMON  /LKMD/  D(40,40),  S(40,40),  1X40,40),  V(40,40) 

COMMON  /GPARM/  RPARM(23),  IPARM(54),  ZPARM(2) 


Run  for  20  hours  to  establish  steady  state. 

IF  (TIME  .NE.  TTS*3600.)  RETURN 
REWIND  15 
IM=IPARM(l) 

JM=IPARM(2) 


Write  stream  function  field  for  time  0  and  then 
write  stream  function  field  for  UFDT  amount  of  time  . 

10  WRITE(15,20)  ((S(l,J),I-l,IM)fJ-l,JM) 

20  FORMATXE12.5) 

RETURN 

END 
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Subroutine  PARTIC 


SUBROUTINE  PARTICCCLWL,  ILVCAR,  IOPT2) 

PROGRAM  PARTIC 

To  avoid  general  confusion,  the  documentation  supplied  by  GLERL 
has  been  modified  from  the  original  version  contained  in  the 
PATHFINDER  Particle  Trajectory  Program.  The  modifications 
merely  remove  unnecessary  comments  and  definitions  and  add  any 
changes  to  the  program.  These  include: 

1. )  The  March  1983  comment  by  D.  J.  Schwab  was  removed. 

2. )  The  control  parameters  and  bathymetric  data  is  read  in  from 

logical  unit  13  but  the  meteorlogical  data  is  read  from 
logical  unit  10.  The  data  is  initially  in  English  (fps) 
units  but  is  converted  into  Metric  (mks)  units  for  use  in 
calculating  the  lake  circulation.  However,  the  final  lake 
velocities  are  reconverted  into  English  units. 

Currently,  the  wind  information  is  not  used  in  PARTIC. 

3. )  Stream  function  values  are  read  from  a  temporary  file  via 

logical  unit  15. 

4. )  Row  IM  and  column  JM  are  set  to  SPVAL  so  that  stream  functions, 

depths,  and  velocities  will  print  correctly  using  subroutine  PRNT. 

5. )  Velocities  for  grid  boxes  are  stored  in  array  VCARO 

and  are  written  to  a  file  (for  plotting  purposes)  if  IOPT2-1. 
velocities  are  computed  using  a  4-point  average  of  four 
surrounding  grid  corner  velocities  and  then  assigned  to  the 
grid  center. 

6. )  Common  Blocks  GRIDS  &  LKMD  were  added. 

7. )  Subroutines  UPPART  &  POUTP  were  not  used. 

Last  Date  of  Revision  :  September  24,  1985 

'^*****4^***:******************ppQ0pj^{  PARTIC*************************** 

PURPOSE  : 

THE  PURPOSE  OF  THIS  PROGRAM  HELP  IN  SIMULATING  THE 

MOVEMENT  OF  TRACER  PARTIC'  A  GRID  MODEL  OF  A  LAKE. 

THE  LAKE  IS  REPRESENTED  AS  AN  ARRAY  OF  SQUARE  GRID 
BOXES.  THE  USER  MUST  SUPPLY  A  DESCRIPTION  OF  THE  LAKE 
BATHYMETRY,  THE  WIND  FIELD,  THE  VOLUME  TRANSPORTS  BETWEEN 
BOXES,  CONTROL  PARAMETERS  (TIME  STEP,  DURATION  OF  RUN, 
WATER  LEVEL  INCREMENT,  AND  HEIGHT  OF  ANEMOMETER),  AND 
TRACER  PARTICLE  INITIAL  POSITIONS.  VELOCITIES  IN  EACH 
GRID  BOX  WELL  ULTIMATELY  BE  CALCULATED  FOR  USE  IN  THE 
OIL  SPILL  SIMULATION. 

INPUT  : 

NOTE:  CLWL  SUPPLIED  THROUGH  SMOSIR  AND  NDCONV  FROM  1-D  MODEL 
CLWL-  CURRENT  LAKE  WATER  LEVEL  (FT) 

LOGICAL  UNIT  13  :  LAKEBATH.DAT 

RECORD  1  -  CONTROL  PARAMETER  RECORD  : 

FORMAT 

DT  -  TIME  STEP  IN  HOURS  G8.2 

BATHYMETRIC  DATA  FILE  : 

THE  FORMAT  OF  THE  BATHYMETRIC  DATA  FILE  IS  DESCRIBED 


CARD  COLUMNS 
9  -  16 


onnnnnnoonnnnnnnnnnnnnnnnnnnnnonnnnonnnnnnonnnnnnonnnnnn 


Subroutine  PARTIC 


IN  SCHWAB  AND  SELLERS  (1980):  ’COMPUTERIZED  BATHY¬ 
METRY  AND  SHORELINES  OF  THE  GREAT  LAKES’,  NOAA  DATA 
REPORT  ERL-GLERL- 16,  AS  DESCRIBED  IN  SCHWAB,  BENNETT, 

AND  JESSUP  (1981)  :  ’A  TWO-DIMENSIONAL  LAKE  CIRCULATION 
MODELING  SYSTEM*,  NOAA  TECHNICAL  MEMORANDUM  ERL-GLERL- 38. 
FIVE  ADDITIONAL  FIELDS  ARE  PRESENT  ON  BATHYMETRIC 
DATA  HEADER  RECORD  NUMBER  2.  THESE  ARE: 


MINIMUM  DEPTH  (FT) 

BASE  GRID  ROTATION  FROM  E-W 
I  DISPLACEMENT 
J  DISPLACEMENT 
ROTATION  ANGLE  FROM  BASE 


FORMAT  CARD  COLUMNS 


15 

F6.2 

F7.3 

F7.3 

F7.2 


45-49 

50-55 

56-62 

63-69 

70-76 


(ANGLES  MEASURED  IN  DEGREES  COUNTERCLOCKWISE) 


THE  ADDITIONAL  FIELDS  ARE  REQUIRED  FOR  CONVERSIONS 
BETWEEN  LATITUDE,  LONGITUDE  PAIRS  AND  GRID  DISTANCES. 
ONLY  THE  BATHYMETRIC  PART  OF  THE  FILE  IS  USED,  SHORE¬ 
LINE  INFORMATION  NEED  NOT  BE  INCLUD. 


LOGICAL  UNIT  10  :  LAKEWIND.DAT 
METEOROLOGICAL  DATA  FILE  : 


FORMAT 

TLAST  -  TIME  FROM  BEGINNING  G10.4 

OF  RUN  (H) 

PLAT  -  LATITUDE  IN  DEGREES  NORTH  G10.4 
PLON  -  LONGITUDE  IN  DEGREES  WEST  G10.4 
Z  -  HEIGHT  OF  INSTRUMENT  (FT)  G10.4 
TA  -  TEMPERATURE  OF  AIR  (F)  G10.4 

TW  -  TEMPERATURE  OF  WATER  (F)  G10.4 

WS  -  WIND  SPEED  (FT/S)  G10.4 

WD  -  WIND  DIRECTION  (DEG)  G6.0 


CARD  COLUMNS 
1  -  10 

11  -  20  . 

21  -  30 
31  -  40 
41  -  50 
51  -  60 
61  -  70 
71  -  76 


ALL  DATA  FOR  THE  SAME  TIME  ARE  GROUPED  TOGETHER,  WITH  A 
MAXIMUM  OF  25  STATIONS  IN  A  GROUP. 


*  NOTE:  END-OF-FDLE  IS  INDICATED  BY  A  RECORD  WITH  A 
NEGATIVE  TIME. 


OUTPUT  : 

LOGICAL  UNIT  6  : 

CONTROL  PARAMETERS,  BATHYMETRY.  AND  A  LIST  OF  THE 
METEOROLOGICAL  DATA  RECORDS. 

COMMON  BLOCKS  : 

/GRIDS/  DXL,  DXR,  LGRIDX,  NGREDX,  IRGRED,  BEGIN 
SEE  SUBROUTINE  SMOSIR  FOR  DETAILS. 

/LKMD/  D(40,40),  S(40,40),  U(40,40),  V(40,40) 

/GPARM/  RPARM(23),  IPARM(54),  ZPARM(2)  -  REAL  AND  INTEGER 
PARAMETERS  DESCRIBING  THE  BATHYMETRIC  GRID. 

SEE  SUBROUTINE  RGRLD  FOR  DETAILS. 

SUBROUTINES  : 

RGRLD  -  READS  THE  BATHYMETRIC  DATA  FILE 
PGPARM  -  PRINTS  GRID  PARAMETERS 
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PRNT  -  FORMATS  AND  PRINTS  OUTPUT  ON  GRID 

UZL  -  CALCULATES  DRAG  COEFFICIENTS  AND  WIND  PROFILE 
PARAMETERS  USED  BY  FUNCTION  WIND 

FUNCTION  WIND  -  READS  METEOROLOGICAL  DATA  AND  CALCULATES 
X  AND  Y  COMPONENTS  OF  WIND 

FUNCTION  XDIST  -  RETURNS  X  DISTANCE  FROM  GRID  ORIGIN  GIVEN 
LATITUDE  AND  LONGITUDE 

FUNCTION  YDIST  -  RETURNS  Y  DISTANCE  FROM  GRID  ORIGIN  GIVEN 
LATITUDE  AND  LONGITUDE 

FUNCTION  UZ  -  CALCULATES  WIND  SPEED  AT  .  A  DIFFERENT 

HEIGHT  (ZWIND)  THAN  THE  OBSERVATIONAL  HEIGHT  (Z) 

BASED  ON  WIND  PROFILE  PARAMETERS 

THE  USER  MUST  SUPPLY  THREE  SUBROUTINES  TO  UPDATE 
TRANSPORTS  AND  GENERATE  OUTPUT.  THEY  ARE: 

UPPART(T, PART, WFACTR  .CFACTR  .NPMAX)  -  CALLED  AT  THE  BEGINNING 
OF  EACH  TMESTEP  TO  INITIALIZE  PARTICLE  POSITIONS.  T  IS 
IN  SECONDS  FROM  BEGINNING  OF  RUN.  PART  DEFINES  THE  PARTICLE 
POSITIONS  IN  METERS  RELATIVE  TO  THE  GRID  ORIGIN.  WFACTR  IS 
THE  FRACTION  OF  THE  WIND  SPEED  WITH  WHICH  PARTICLES  MOVE  IN 
PURELY  WIND  DRIVEN  MOTION.  CFACTR  IS  THE  FRACTION  FOR 
CURRENT.  NPMAX  IS  THE  MAXIMUM  NUMBER  OF  PARTICLES  THAT  MAY  BE 
INTRODUCED  IN  ONE  TTMESTEP. 

UPDATEODIM)  -  SUPPLIES  TRANSPORT  FIELD  AT  EACH  TIMESTEP. 

D  IS  THE  DEPTH  ARRAY.  U  AND  V  ARE  THE  X  AND  Y  COMPONENTS  OF 
TRANSPORT.  U(I,J),  THE  X  COMPONENT  OF  TRANSPORT,  IS  DEFINED  AT 
THE  CENTER  OF  THE  RIGHT  SIDE  OF  GRID  BOX  I.J.  V(I,J),  THE  Y 
COMPONENT  OF  TRANSPORT,  IS  DEFINED  AT  THE  CENTER  OF  THE  TOP  OF 
GRID  BOX  I,J.  S(IJ)  IS  A  TEMPORARY  STORAGE  ARRAY  CONTAIN¬ 
ING  STREAM  FUNCTION  FIELDS.  IDIM  IS  THE  FIRST  DIMENSION  OF 
D,  U,  AND  V. 

POUTP(T(D,  PART, IDIM)  -  GENERATES  USER -REQUIRED  OUTPUT. 

POUTP  IS  CALLED  BY  PARTIC  EVERY  TIME  STEP  (DT,  SPECIFIED 
BY  THE  USER).  T  IS  THE  TIME  IN  SECONDS  FROM  THE  BEGINNING 
OF  THE  RUN.  D  IS  THE  DEPTH  ARRAY.  PART  DEFINES  THE 
PARTICLE  POSITIONS  (IN  METERS  RELATIVE  TO  TOE  GRID  ORIGIN). 

IDIM  IS  THE  FIRST  DIMENSION  OF  D. 


HISTORY  : 

WRITTEN  BY  J.R.  BENNETT,  1982,  GLERL,  ANN  ARBOR, MI. 

*4^**:M*********«********************************************************** 

COMMON  /V/  IZRBX(lOo),  IZRBY(100),  NZRVB 
COMMON  /VA/  VCAR.VWIND.VDRTFT 

COMMON  /VASB/  IGRILB(300),  IGRIUB(300),  IGRLBl(300),  IGRUBl(300) 
COMMON  /LKMD/  0(40,40),  S(40,40),  U(40,40),  V(40,40) 

COMMON  /GPARM/  RPARM(23),  IPARM(54),  ZPARM(2) 

COMMON  /GRIDS/  DXL,  DXR,  LGRIDX,  NGRIDX,  IRGRED,  BEGLK 
COMPLEX  VCAR(8000),VWIND,VDRIFT' 

DATA  NPMAX,  SPVAL,  LUNB,  LUNM  /1000,  1.0E2(  13,  10/ 

DATA  IDIM,  JDIM  /40,40/ 

C  RWD  -  reference  water  datum  for  bathymetric  data  (FT) 

DATA  RWD  /571.71/ 
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Reread  bathymetric  grid  information. 
CALL  RGRHXLUNB,  D,  IDIM,  JDIM) 


Read  control  parameters. 
READOLUNB,  1 00)  DT 


DADD  -  mean  water  level  relative  to  RWD. 

DADD  -  (CLWL-RWD)  /  3.281 
IM  -  IPARMCl) 

JM  -  EPARM(2) 

DS  -  RPARMC3) 

DMAX  -  RPARM(4) 

DMIN  -  RPARM(5)  +  DADD 
1MM1  -  IM  -  1 
JMM1  -  JM  -  1 
DT  -  DT*3600. 

Clear  arrays  and  add  water  level  increment. 

DO  20  I  -  l.IM 
DO  20  J  -  l.JM 
U(I,J)  -  0. 

V(I,J)  -  0. 

S(I,J)  -  0. 

IF  (  D(I,J)  .LT.  RPARM(5))  GOTO  20 
D(I,J)  -  D(I,J)  +  DADD 
20  CONTINUE 

If  water  level  increment  results  in  a  negative  DMIN,  stop. 


IF  (DMIN  .LE.  0.0)  GOTO  90 


Main  iteration  loop 
Update  transports 

CALL  UPDATEODIM) 


Convert  transports  to  half  currents  by  dividing  by  twice  depth 

DO  40  I=1,1MM1 
DO  40  J-1.JMM1 

IF  (DO.J)  .GE.  DMIN  .AND.  D(l+l,J)  .GE.  DMIN) 

1  U(\J)  -  U(I,J)/(D(I,J)  +  DCl+l.J)) 

IF  OXl.J)  -GE.  DMIN  .AND.  D(l,J+l)  .GE.  DMIN) 

1  V(I,J)  -  V(I,J)/(D(I,J)  +  D(l,J+l)) 

40  CONTINUE 


Interpolate  currents  to  stream  function  points,  taking  care 
to  use  interior  currents  at  the  shore  boundary. 


UMAX  -  0. 
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DO  51  I-1.IMM1 
IM1  -  1-1 

IFCl  .EQ.  1)  IM1  -  1 
DO  51  J-1.JMM1 

DF(D(I,J)  .LT.  EMIN  .AND.  D(I+1,J)  .LT.  DMIN  .AND. 

1  DCU+1)  .LT.  DMIN  AND.  D(I+1,J+1)  .LT.  DMIN)  GOTO  51 

UUP  -  UClJ+l) 

IF  (D(l,J+l)  .LT.  DMIN)  UUP  -  iXl+l.J+l) 

IF  (DO+l.J+1)  .LT.  DMIN)  UUP  -  U(IM1,J+1) 

UDN  -  U(I,J) 

IF  (D(l,J)  .LT.  DMIN)  UDN  -  U(I+1,J) 

IF  (D(l+lfJ)  .LT.  DMIN)  UDN  -  U(IM1,J) 

IF  (D(I,J)  .LT.  DMIN  AND.  DO+l.J)  .LT.  DMIN)  UDN-UUP 
IF  (IXU+I)  .LT.  DMIN  AND.  D(I+1,J+1)  .LT.  DMIN)  UUP-UDN 
S(I.J)  -  UUP  +  UDN 


Calculate  maximum  current  speed. 

UMAX  -  AMAXl(UMAX,ABS(S(l,J))) 
51  CONTINUE 

DO  50  I-1.IMM1 
DO  50  J-1.JMM1 
IXU)  -  S(I,J) 


Interpolate  currents  to  stream  function  points,  taking  care 
to  use  interior  currents  at  the  shore  boundary. 

50  CONTINUE 

DO  53  J-1.JMM1 
JM1  -  J-l 

IF  (J  .EQ.  1)  JM1  -  1 
DO  53  I-1.IMM1 

IF(D(I,J)  .LT.  DMIN  .AND.  D(I+1,J)  .LT.  DMIN  AND. 

1  DCU+1)  .LT.  DMIN  AND.  D(l+l,J+l)  .LT.  DMIN)  GOTO  53 

VR  -  V(I+1,J) 

IF  (D(I+1,J)  .LT.  DMIN)  VR  -  V(l+l,J+l) 

IF  (D(l+l,J+l)  LT.  DMIN)  VR  -  V(l+l,JMl) 

VL  -  V(I,J) 

IF  (D(U)  -LT.  DMIN)  VL  -  VU.J+D 
IF  (D0.J+1)  .LT.  DMIN)  VL  -  VO.JMl) 

IF  (DCI.J)  -LT.  DMIN  .AND.  D(l,J+l)  .LT.  DMIN)  VL-VR 
IF  (DCl+l.J)  .LT.  DMIN  .AND.  D(l+l,J+l)  .LT.  DMIN)  VR-VL 
S(I.J)  -  VL  +  VR 

Calculate  maximum  current  speed. 


UMAX  -  AMAXl(UMAX,ABS(S(l,J))) 
53  CONTINUE 

DO  52  I=1,IMM1 
DO  52  J-1.JMM1 
V(I,J)  -  S(I,J) 

52  CONTINUE 


Set  column  IM  and  row  JM  equal  to  SPVAL. 
DO  58  IN-1, IM 
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UdN,JM)-SPVAL 
V(IN,JM)-SPVAL 
DO  58  JN-l.JM 
U(IM,JN)-SPVAL 
V(IM,JN)=SPVAL 
58  CONTINUE 

Write  lake  velocities  to  VCARCD. 

Extrapolate  to  grid  box  center  using  4-point  average. 

J1  -  2 

LM1  -  LGREDX  -  1 
DO  21  LX-1  .LGREDX 

X  -  LX*DXL  -0.5  *DXL+BEGLK 
ISLU  -  IGRUBlCLX) 

ISLL  -  IGRLBl(LX) 

J2  -  IGRIUB(LX)-IGRILB(LX)+J1 
LY  -  IGRILBCLX) 

DO  11  J-J1.J2 

Y  -  LY*DXL  -0.5  *DXL 
COUNT=O.ODO 
LX1  -  LX  -1 
IF<LX1.LE.0)LX1=1 

WX-(U(LX1,LY)  +  U(LX,LY)  +  U(LXl,LY-l)  +  UCLX.LY- l))/4.0D0 
IF  (U(LX1,LY)  .EQ.  SPVAL)  COUNT-COUNT+ 1 . 0D0 
IF  (UCLX.LY)  .EQ.  SPVAL)  COUNT-COUNT+1.  ODO 
IF  (UCLX1.LY-1)  .EQ.  SPVAL)  COUNT-COUNT+1  .ODO 
•  IF  (UCLX.LY-1)  .EQ.  SPVAL)  CXDUNT-COUNT+l.ODO 

IFCCOUNT.GT.O.ODO  .AND.  CXDUNT.LT. 4. ODO)  WX=(VVX* 4 . 0D0 - 
&  (COUNT*  SPVAL))/(4 . 0D0  -  COUNT) 

WX  -  WX*3.281 
COUNT=O.ODO 

WY-(V(LX1,LY)  +  VCLX.LY)  +  VCLX1.LY-1)  +  V(LX,LY-l))/4.0D0 
IF  (V(LX1,LY)  .EQ.  SPVAL)  COUNT-COUNT+1. ODO 
IF  (VCLX.LY)  .EQ.  SPVAL)  COUNT-COUNT+1 .0D0 
IF  (V(LXl,LY-l)  .EQ.  SPVAL)  COUNT-COUNT+1. ODO 
IF  (VCLX.LY- 1)  .EQ.  SPVAL)  COUNT-COUNT+1. ODO 
IFCCOUNT.GT.O.ODO  .AND.  COUNT.LT.4.0D0)  WY-(VVY*4.0D0- 
&  (COUNT*  SPVAL))/(4  .ODO  -  COUNT) 

WY  -  WY*3.281 
VCAR(J)  -  CMPLX(WX,WY) 

IFCLY.GE.ISLLAND.LY.LE.ISLU)  VCAR(J)  -  0.0011 
DO  164  EBOX-1,  NZRVB 

if(lx.eq.izrbx(ibox)  AND.LY.EQ.IZRBYClBOX)) 

&  VCAR(J)  -  0.0011 

164  CONTINUE 

IFCIOPT2  .EQ.  1)  WRITE(4,2100)  X,  Y,  VCAR(J) 

LY  -  LY+1 
11  CONTINUE 
J1  -  J2+3 
21  CONTINUE 

ILVCAR  =  J2  +  1 

Print  out  X  &  Y  velocities. 

CALL  PRNTC6,  U,  IDIM,  IM.  JM,  SPVAL) 
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C  CALL  PRNT(6,  V,  IDIM,  IM.  JM,  SPVAL) 

C 

C  End  main  loop. 

C 

30  CONTINUE 
GOTO  9999 

90  WRITECM20)  DADD 
GOTO  9999 
100  FORMATCG8.2) 

120  FORMAT(T,20X,THE  WATER  LEVEL  INCREMHOr>F8.2,>RESULTS  IN  A’, 
1  'NEGATIVE  MINIMUM  DEPTH  -  PROGRAM  TERMINATED*) 

2100  FORMATC2F9.0.2F7.2) 

9999  CONTINUE  / 

RETURN  y 

END 
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SUBROUTINE  PGPARMCLUN) 

PURPOSE: 

TO  PRINT  THE  GRID  DESCRIPTION  PARAMETERS  (RPARM 
AND  IPARM  IN  COMMON  BLOCK  /GPARM/) 

ARGUMENTS: 

LUN  -  LOGICAL  UNIT  NUMBER  ON  WHICH  TO  PRINT 

COMMON  BLOCK: 

/GPARM/'  RPARM(23),IPARM(54),ZPARM(2) 

COMMON  /GPARM/  RPARM(23),  IPARMC54),  ZPARM(2) 

WRITE  (6,10)  (IPARM(I),I-5,S4) 

WRITE  (6,20)  IPARM(1),  IPARM(2),  ZPARM(l),  ZPARM(2) 

WRITE  (6,30)  (RPARM(I),  1-1,7) 

WRITE  (6,40)  (RPARM(l),I-8,23) 

10  FORMAT  (’OBAIHYMETRIC  DATA  FILE  HEADER  FOR  ’,  50A1) 

20  FORMAT  ('OIDIMENSION  :  IPARM(l)  -  ',  15,  6X,  ’JDIMENSION  :  ’, 

1  TPARM(2)  -  *,  8X,  I5/’0\  14X, 

2  ’DISPLACEMENT  OF  ORIGIN  IN  \  ’NUMBER  OF  GRID  SQUARES’/ 

3  ’OEDISPLACEMENT  :  ZPARM(l)  =’,  F7.3,  4X, 

4  ’JDISPLACEMENT  :  ZPARM(2)  4X,  F7.3) 

30  FORMAT  (’OBASE  LATITUDE  :  RPARM(l)  -  ’,  F12.7/’0BASE  LONGITUDE  ’, 

1  ’:  RPARM(2)  -’,  F12.7/’0GRDD  SIZE  (M)  :  RPARM(3)  =  ’,  F6.0, 

2  5X,  ’MAX  DEPTH  (M)  :  RPARM(4)  -  ’,  5X,  F6.2/ 

3  ’OMIN  DEPTH  (M)  :  ’,  ’RPARM(5)  -  ’,  F6.2,  4X, 

4  ’BASE  ROTATION  :  RPARM(6)  -  ',  8X,  F5.2/ 

5  ’OANGLE  ROTATED  :  RPARM(7)  -  ’,  F7.2) 

40  FORMAT  (’O’,  11X,  ’GEOGRAPHIC-TO-MAP  COORDINATE  CONVERSION  ’, 

1  ’COEFFICENTS  FOR  X’/’0RPARM(8)  -  ’,  6X,  E15.6,  5X, 

2  *RPARM(9)  -  ’,  12X,  E15.6/’0RPARM(10)  -  ’,  5X,  E15.6,  5X, 

3  ’RPARM(11)  -  ’,  11X,  El5.6/’0’,  11X, 

4  ’GEOGRAPHIC-TO-MAP  COORDINATE  CONVERSION  COEFFICIENTS’, 

5  ’  FOR  Y7’0RPARM(12)  -  ’,  5X,  E15.6,  5X,  *RPARM(13)  =  ’, 

6  11X,  E15.6/’0RPARM(l4)  -  ’,  5X,  E15.6,  5X,  ’RPARM(15)  =  ’, 

7  UX,  E15.6/’0’,  7X, 

8  ’MAP -TO -GEOGRAPHIC  COORDINATE  CONVERSION  COEFFICIENTS’, 

9  ’  FOR  LONGi iUDE’/’ORPARMd 6)  «  ’,  5X,  E15.6,  5X, 

*  ’RPARM(17)  -  ’,  11X,  E15.6/’0RPARM(18)  -  ’,  5X,  E15.6,  5X, 

1  ’RPARM(19)  -  ’,  11X,  E15.6/’0’,  7X, 

2  ’MAP-TO-GEOGRAPHIC  COORDINATE  CONVERSION  COEFFICIENTS’, 

3  ’  FOR  LATTTUDE’/’ORPARMdO)  -  ’,  5X,  El 5.6,  5X, 

4  ’RPARM(21)  -  ’,  11X,  E15.6/’0RPARM(22)  -  ’,  5X,  E15.6,  5X, 

5  ’RPARM(23)  -  ’,  11X,  E15.6) 

RETURN 

END 


181 


nno  nnnnnn  nnn  non  onnnoonoonnnnononnnnnnnnnnon 


Subroutine  PRNT 


SUBROUTINE  PRNTCLUN,  A,  IDIM,  MAX,  JMAX,  SPVAL) 

PURPOSE: 

TO  NORMALIZE  AND  PRINT  TOE  TWO  DIMENSIONAL  ARRAY  A 

ALGORITHM: 

PRNT  FIRST  DETERMINES  TOE  MAXIMUM  ABSOLUTE  VALUE  OF 
DATA  IN  ARRAY  A  ONLY  POINTS  FOR  WHICH  A(I,J)  IS 
NOT  EQUAL  TO  SPVAL  ARE  CONSIDERED.  IT  THEN  FINDS 
THE  POWER  OF  TEN  BY  WHICH  AMAX  MUST  BE  MULTELPIED 
FOR  IT  TO  LIE  BETWEEN  100  AND  1000.  TOE  POWER  OF 
TEN  IS  PRINTED,  FOLLOWED  BY  TOE  NORMALIZED  DATA, 
FORMATTED  AS  3  DIGIT  INTEGERS.  POINTS  AT  WHICH 
A(I,J)  IS  EQUAL  TO  SPVAL  ARE  MASKED  BY  ASTERISKS. 

DATA  ARE  OUTPUT  IN  BLOCKS  WITH  J  DECREASING  DOWN 
AND  I  INCREASING  ACROSS  TOE  PAGE.  THE  NUMBER  OF 
VALUES  PRINTED  ACROSS  A  PAGE  IS  AN  INTERNAL  PARA¬ 
METER  IN  TOE  SUBROUTINE. 

ARGUMENTS: 

LUN  -  LOGICAL  UNIT  NUMBER  ON  WHICH  TO  PRINT 
A  -  TWO-DIMENSIONAL  ARRAY  TO  BE  NORMALIZED  AND 
PRINTED.  UNCHANGED  BY  PRNT. 

IDIM  -  FIRST  DIMENSION  OF  A  AND  D  IN  DIMENSION 
STATEMENT  OF  CALLING  PROGRAM 
MAX  -  MAXIMUM  I  VALUE  ACTUALLY  USED  IN  A  AND  D 
JMAX  -  MAXIMUM  J  VALUE  ACTUALLY  USED  IN  A  AND  D 
SPVAL  -  SPECIAL  MASKING  VALUE:  ONLY  TOE  A(I,J) 

.  WHICH  ARE  NOT  EQUAL  TO  SPVAL  ARE  PRINTED 

**S**4^**4^***4^**jM*******4^************  '  *2*22**+'************************* 

DIMENSION  INTEG(30),  A(40,4U 

NCOL  IS  THE  NUMBER  OF  VALUES  TO  PRINT  ACROSS  A  PAGE 
NCOL  -  19 

AMAX=MAXJMUM  ABSOLUTE  VALUE  OF  ARRAY  A 

AMAX  -  0.0 
DO  10  I  -  1,  MAX 
DO  10  J  -  1,  JMAX 

IF  CACU)  .EQ.  SPVAL)  GOTO  10 
AMAX  -  AMAXICAMAXABSCaO.J))) 

10  CONTINUE 

NOW  FIND  TOE  POWER  OF  TEN  BY  WHICH  WE  MUST  MULTIPLY  AMAX 
SO  THAT  IT  FALLS  BETWEEN  100  AND  1000. 

INITIALLY  THE  POWER  IS  ZERO 

MP  -  0 

IF  (AMAX  .EQ.  0)  GOTO  20 
TAKE  BASE  10  LOGARITHM  OF  AMAX 
AP  -  ALOGIOCAMAX) 
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IF  AMAX  IS  GREATER  THAN  1000,  MP  IS  NEGATIVE 

if  Cap  .gt.  3.)  mp  -  -ifixCap  -  2.) 

IF  AMAX  IS  LESS  THAN  100,  MP  IS  POSITIVE 

IF  CAP  .LT.  2.)  MP  -  IFIXC3.  -  AP) 

20  CONTINUE 

PRINT  THE  GRID 

II  -  1 

H  -  CIMAX  -  1)  /  NCOL  +  1 
IRMDR  -  IMAX  -  NCOL  *  CH  -  l) 

DO  50  L  -  1,  II 

vVHEN  L-II  ONLY  PRINT  IRMDR  VALUES 

IF  CL  .EQ.  n)  NCOL  «  IRMDR 

PRINT  THE  POWER 

WRITECLUN.60)  MP 
12  -  II  +  NCOL  -  1 
DO  40  JJ  -  1,  JMAX 
J  -  JMAX  -  JJ  +  1 
DO  30  I  -  II,  12 
13  -  1  +  I  -  II 
IN1LGCI3)  -  -9999 

IF  CACl.J)  -NE.  SPVAL)  INTEGCI3)  -  INTUCl,J)*10.**MP  + 
1  SIGNC0.5^ACI,J)*10.**MP)) 

30  CONTINUE 

WRITECLUNJO)  ClNTEGCl),  1=1  .NCOL) 

40  CONTINUE 
II  -  12  +  1 
50  CONTINUE 

60  FORMAT  C’O  VALUES  MULTIPLIED  BY  10**’,  13) 

70  FORMAT  C  ’,  3014) 

RETURN 

END 
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Subroutine  RGR1D 


SUBROUTINE  RGRID(LUN,  D,  IDIM,  JDIM) 

PURPOSE: 

TO  READ  A  STANDARD  BATHYMETRIC  GRID  DATA  FILE 
AND  RETURN  GRID  PARAMETERS  AND  DEPTHS. 

ARGUMENTS: 

ON  INPUT: 

LUN  -  LOGICAL  UNTT  NUMBER  OF  BATHYMETRIC  DATA  FILE 
IDIM  -  FIRST  DIMENSION  OF  ARRAY  D  IN 

DIMENSION  STATEMENT  OF  CALLING  PROGRAM 
JDIM  -  SECOND  DIMENSION  OF  ARRAY  D  IN 

DIMENSION  STATEMENT  OF  CALLING  PROGRAM 

ON  OUTPUT: 

D  -  DEPTH  ARRAY.  ZERO  FOR  LAND,  AVERAGE  DEPTH 
OF  GRID  BOX  IN  MEIERS  FOR  WATER. 

RPARM  -  ARRAY  CONTAINING  REAL-VALUED  BATHYMETRIC 
GRID  PARAMETERS  AS  FOLLOWS: 

1.  BASE  LATITUDE 

2.  BASE  LONGITUDE 

3.  GRID  SIZE  (IT) 

4.  MAXIMUM  DEPTH  (FT) 

5.  MLNIMUM  DEPTH  (FT) 

6.  BASE  ROTATION  (COUNTER  CTOCKWI SE  NEGATIVE) 

7.  ROTATION  FROM  BASE  (COUNTERCLOCKWISE  NEGATIVE) 
8-11.  GEOGRAPHIC -TO -MAP  COORDINATE  CONVERSION 

COEFFICIENTS  FOR  X 

12-15.  GEOGRAPHIC-  fO  MAP  COORDINATE  CONVERSION 
COEFFICIENTS  FOR  Y 

16- IS.  MAP-TO-GEOGRAPHTC  COORDINATE  CONVERSION 
COFmCIENTS  FOR  LONGITUDE 
20-23.  MA » -  TO-  GEOGRAPHIC  COORDINATE  CONVERSION 
COEFFICIENTS  FOR  LATITUDE 

IPAPM  -  ARRAY  CONTAINING  INTEGER -VALUED  BATHYMETRIC 
GRID  PARAMETERS  AS  FOLLOWS: 

1.  NUMBER  OF  GRID  BOXES  IN  X  DIRECTION 

2.  NUMBER  OF  GRID  BOXES  IN  Y  DIRECION 

3.  NOT  ttS ED 

4.  NOT  USED 

5-54.  LAKE  NAME  (50A1) 

NOTE:  IF  GRID  IS  TOO  LARGE  FOR  DIMENSIONS  OF  D, 

THE  IPARM  ARRAY  IS  SET  TO  ZERO 

ZPARM  -  ARRAY  CONTAINING  REAL-VALUED  BATHYMETRIC 
GRID  PARAMETERS  AS  FOLLOWS: 

1.  I  DISPLACEMENT  -  THE  NUMBER  OF  NEW  GRID 
SQUARES  IN  SHE  X-  DIRECTION  FROM  THE  NEW 
GRID  ORIGIN  TO  "THE  OLD  GRID  ORIGIN 

2.  J  DISPLACEMENT  -  THE  NUMBER  OF  NEW  GRID 
SQUARES  IN  THE  Y- DIRECTION  FROM  THE  NEW 
GRID  ORIGIN  TO  I  HE  OLD  GRID  ORIGIN 

COMMON  BLOCK: 

/  GPARM/R  PARM(2  3) ,  I  PARM(5  4)  ,ZPARM(2) 


Last  Dace  of  Revision  :  September  11,  1985 


Subroutine  RGRED 


Q  *************************************************************************** 

DIMENSION  DCIDIM.JDIM) 

COMMON  /GPARM/  RPARM(23),  IPARM(54),  ZPARM(2) 

REWIND  LUN 

READ  (LUN, 30)  (lPARM(l),I-5,54),  IPARM(l),  IPARM(2), 
l(RPARM(l),  1-1,6),  ZPARMCl),  ZPARMC2),  RPARMC7) 

READ  (LUN, 60)  (RPARM(I),I«8,23) 

IM  -  IPARMCl) 

JM  -  IPARMC2) 

RPARM(3)  -  RPARM(3)  /  3.281 
RPARMC4)  -  RPARM(4)  /  3.281 
RPARMC5)  -  RPARMC5)  /  3.281 

IF  (IPARMCl)  .GT.  IDIM  .OR.  IPARM(2)  .GT.  JDIM)  GOTO  10 
READ  (LUN, 40)  ((D(I,  J),I-1  ,IM),  J-l ,  JM) 

DO  80  I-l.IM 
DO  80  J-l.JM 

D(l,J)  -  D(I,J)  /  3.281 
80  CONTINUE 
RETURN 

10  DO  20  I  -  1,  54 
20  IPARMCl)  -  0 
WRITER, 50) 

30  FORMAT  (50(Al)/2I5,  2F12.7,  3F5.0,  F6.2,  2F7.3,  F7.2) 

40  FORMAT  (19F4.0,  4X) 

50  FORMAT  C  BATHYMETRIC  GRID  TOO  LARGE  -  INCREASE  DIMENSIONS  OF, 
1  ’  NDEPTH  AND  DEPTH  IN  MAIN  PROGRAM’) 

60  FORMAT  (4E15.6,  20X) 

70  RETURN 
END 
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Subroutine  RLID 


SUBROUTINE  RIUXUFDT,  TLKQ,  CLWL,  TIMET,  INDPRN) 

To  avoid  general  confusion,  the  documentation  supplied  by  GLERL 
has  been  modified  from  the  original  version  contained  in  the 
PATHFINDER  Particle  Trajectory  Program.  The  modifications 
merely  remove  unnecessary  comments  and  definitions  and  add  any 
changes  to  the  program.  These  include: 

1. )  The  February  1983  comment  by  D.  J.  Schwab  was  removed. 

2. )  The  control  parameters  and  bathymetric  data  is  read  in  on 

logical  unit  13  but  the  meteorlogical  data  is  read  from 
logical  unit  10.  The  data  is  initially  in  English  (fps) 
units  but  is  converted  into  Metric  (mks)  units  for  use  in 
calculating  the  lake  circulation.  However,  the  final  lake 
velocities  are  reconverted  into  English  units. 

3. )  Initial  stream  function  values  are  read  in  from  logical 

unit  14  using  subroutine  INIT. 

4. )  Stream  function  values,  for  use  in  calculating  lake  grid 

velocities,  are  written  to  logical  unit  15  (a  temporary  file) 
as  controlled  by  subroutine  OUTP. 

5. )  Common  Blocks  GRIDS,  ICE,  VASB  &  LKMD  were  added. 

Last  Date  of  Revision  :  September  24,  1985 

(^************************^^00^^^  £JJQ)»***#********S****************** 


RIGID  LID  CIRCULATION  MODEL 


PURPOSE:  ‘ 

THE  PURPOSE  OF  THIS  PROGRAM  IS  TO  COMPUTE  THE  TIME-DEP¬ 
ENDENT  CIRCULATION  FOR  A  GRID  MODEL  OF  A  LAKE.  THE 
CIRCULATION  IS  ASSUMED  TO  BE  NON -DIVERGENT  SO  THAT  IT 
CAN  BE  REPRESENTED  IN  TERMS  OF  A  STREAM  FUNCTION.  THE 
LAKE  IS  REPRESENTED  AS  AN  ARRAY  OF  SQUARE  GRID  BOXES 
AND  A  FINITE  DIFFERENCE  FORM  OF  THE  VORTICTTY 
EQUATION  IS  APPLIED  TO  THE  GRID.  THE  STREAM  FUNCTION 
S(I,J)  IS  DEFINED  AT  THE  TOP  RIGHT  CORNER  OF  GRID  SQUARE 
I,  J.  THE  USER  IS  REQUIRED  TO  SUPPLY  A  DESCRIPTION  OF 
THE  LAKE  BATHYMETRY,  THE  METEOROLOGICAL  FORCING  CONDIT¬ 
IONS,  A  SUBROUTINE  THAT  SETS  THE  INITIAL  CONDITION  FOR 
THE  STREAM  FUNCTION  FIELD  (WHICH  MAY  INCLUDE  INFLOW  AND 
AND  OUTFLOW  CONDITIONS),  CONTROL  PARAMETERS  (TTMESTEP, 
DURATION  OF  RUN,  AND  WATER  LEVEL  INCREMENT  IF  RE¬ 
QUIRED),  AND  A  SUBROUTINE  TO  HANDLE  OUTPUT  FUNCTIONS. 

INPUT  : 


NOTE:  CLWL  AND  TLKQ  SUPPLIED  THROUGH  SMOSIR  &  NDCONV 

CLWL-  CURENT  LAKE  WATER  LEVEL  (FT) 

TLKQ-  PRESENT  TOTAL  LAKE  DISCHARGE 


LOGICAL  UNIT  13  :  LAKEBATH.DAT 
CONTROL  PARAMETER  RECORD  : 

DT  -  TIME  STEP  (HOURS') 


FORMAT  CARD  COLUMNS 
G8.2  1  -  8 
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Subroutine  RI.TD 


BATHYMETRIC  DATA  FILE  : 

THE  FORMAT  OF  THE  BATHYMETRIC  DATA  FILE  IS  DESCRIBED 
IN  SCHWAB  AND  SELLERS  (1980):  ’COMPUTERIZED  BATHY¬ 
METRY  AND  SHORELINES  OF  THE  GREAT  LAKES’,  NOAA  DATA 
REPORT  ERL-GLERL-16.  FIVE  ADDITIONAL  FIELDS  ARE 
PRESENT  ON  BATHYMETRIC  DATA  HEADER  RECORD  2.  THESE 


ARE: 

MINIMUM  DEPTH  (FT) 

BASE  GRID  ROTATION  FROM  E-W 
I  DISPLACEMENT 
J  DISPLACEMENT 
ROTATION  ANGLE  FROM  BASE 


FORMAT  CARD  COLUMNS 


IS 

F6.2 

F7.3 

F7.3 

F7.2 


45-49 

50-55 

56-62 

63-69 

70-76 


(ANGLES  MEASURED  IN  DEGREES  COUNTERCLOCKWISE) 


THE  ADDITIONAL  FIELDS  ARE  REQUIRED  FOR  CONVERSIONS 
BETWEEN  LATITUDE,  LONGITUDE  PAIRS  AND  GRID  DISTANCES. 
ONLY  THE  BATHYMETRIC  PART  OF  THE  FILE  IS  USED,  SHORE¬ 
LINE  INFORMATION  NEED  NOT  BE  INCLUDED. 


LOGICAL  UNIT  10  :  LAKEWIND.DAT 
METEOROLOGICAL  DATA  FILE  : 


FORMAT 


TLAST  -  TIME  FROM  BEGINNING  G10.4 

OF  RUN  (H) 

RLAT  -  LATITUDE  IN  DEGREES  NORTH  G10.4 
RLON  -  LONGITUDE  IN  DEGREES  WEST  G10.4 
Z  HEIGHT  OF  INSTRUMENT  (FT)  G10.4 
TA  -  TEMPERATURE  OF  AIR  (F)  G10.4 

TW  -  TEMPERATURE  OF  WATER  (F)  G10.4 

WS  -  WIND  SPEED  (FT/S)  G10.4 

WD  -  WIND  DIRECTION  (DEG)  G6.0 


CARD  COLUMNS 
1  -  10 

11  -  20 
21  -  30 
31  -  40 
41  -  50 
51  -  60 
61  -  70 
71  -  76 


ALL  DATA  FOR  THE  SAME  TIME  ARE  GROUPED  TOGETHER,  WITH  A 
MAXIMUM  OF  25  STATIONS  IN  A  GROUP. 


♦NOTE  END-OF-FILE  IS  INDICATED  BY  A  RECORD  WITH  A  NEGATIVE  TIME 


OUTPUT  : 

LOGICAL  UNIT  6  : 

CONTROL  PARAMETERS,  BATHYMETRY,  A  LIST  OF  THE 
METEOROLOGICAL  DATA  RECORDS,  U;  TRANSPORT  IN  X-DIRECTION, 

V;  TRANSPORT  IN  Y- DIRECTION,  S;  STREAM  TRANSPORT,  D;  DEPTHS 

COMMON  BLOCKS  : 

/ICE/  ZWND(40,40),ZLKICE(20),NICEXl(20),NICEYl(20)f 
NICEX2(20),NICEY2(20),IPOS1(20),IPOS2(20)^MIUO,ANICE, 
SPAICE.NICERG  .LICERG 

/LKMD/  1X40,40),  S(40,40),  U(40,40),  V(40,40) 

SEE  SUBROUTINE  SMOSIR  FOR  DETAILS. 

/VASB/  IGRILB(300),IGRIUB(300),IGRLB1(300),IGRUB1(300) 

/GPARM/  RPARM(23),  IPARM(54),  ZPARM(2)  -  REAL  AND  INTEGER 
PARAMETERS  DESCRIBING  THE  BATHYMETRIC  GRID. 

SEE  SUBROUTINE  RGRID  FOR  DETAILS. 

/TTPARM/  DSTMAX,  STMIN,  STMAX,  FRAC,  ITS 
RELAXATION  PARAMETERS: 
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Subroutine  RI.ID 


DSTMAX  -  MAXIMUM  CHANGE  IN  ABSOLUTE  VALUE  OF 
STREAM  FUNCTION  AT  LAST  ITERATION 
STMIN  -  MINIMUM  VALUE  OF  STREAM  FUNCTION 
STMAX  -  MAXIMUM  VALUE  OF  STREAM  FUNCTION 
FRAC  -  DSTMAX  /  (STMAX  STMIN) 

ITS  -  NUMBER  OF  ITERATIONS  TAKEN  TO  CONVERGE 


SUBROUTINES: 

RGRID  -  READS  THE  BATHYMETRIC  DATA  FILE 

PfJPACU  _  PRTNTC  fiCTn  PABAMFTFBS 

PRNT  -  FORMATS  AND  PRINTS  DATA  FROM  GRID  I.E.  STREAM  FUNCTION, DEPTH 
UZL  -  CALCULATES  DRAG  COEFFICIENT  FOR  METEOROLOGICAL  DATA 
FUNCTION  TAU  -  READS  METEOROLOGICAL  DATA  AND  CALCULATES 
WIND  STRESS 

FUNCTION  XDIST  -  RETURNS  X  DISTANCE  FROM  GRID  ORIGIN 
GIVEN  LATITUDE  AND  LONGITUDE 
FUNCTION  YDIST  -  RETURNS  Y  DISTANCE  FROM  GRID  ORIGIN 
GIVEN  LATITUDE  AND  LONGITUDE 
FUNCTION  RLAT  -  RETURNS  LATITUDE  GIVEN  X  AND  Y  DISTANCE 
FROM  GRID  ORIGIN 

THE  USER  MUST  SUPPLY  TWO  SUBROUTINES  TO  HANDLE  INITIAL 
CONDITIONS  AND  OUTPUT.  THEY  ARE: 

INTKD,  S,  TLKQ,  RLKQ,  IDIM)  -  SETS  INITIAL  CONDITION  FOR  STREAM 
FUNCTION  FIELD  (S).  D  IS  THE  DEPTH  ARRAY  (INTERPOLATED  TO 
STREAM  FUNCTION  POINTS)  AND  IDIM  IS  THE  FIRST  DIMENSION  OF 
D  AND  S.  TLKQ  IS  THE  CURRENT  TOTAL  LAKE  DISCHARGE.  RLKQ  IS 
THE  REFERENCE  DISCHARGE  FOR  THE  INITIAL  STREAM  FUNCTION  FILE. 

OUTPCITME,  TTS,  IDIM)  -  GENERATES  USER-REQUIRED 

OUTPUT.  OUTP  IS  CALLED  BY  RLLD  EACH  TIMESTEP  WITH  THE  CURRENT 
TIME,  TIME,  IN  SECONDS.  THE  TIME  AT  WHICH  THE  STREAM  FUNCTION 
WILL  BE  SAVED,  ITS,  A  -J  /HE  DIMENSION  OF  THE  STREAM  FUNCTION 
ARRAY,  IDIM. 

HISTORY:  WRITTEN  BY  J.  R.  BENNETT  AND  D.  J.  SCHWAB,  1981, 

GLERL,  ANN  ARBOR,  MI 

MODIFIED  3/83  TO  REFLECT  CERTAIN  IMPROVEMENTS  IN  THE 
RELAXATION  SCHEME  AND  THE  WAY  DMIN  AND  DADD  ARE  HANDLED 

************************************************************************* 

DIMENSION  RHS(40,40),  SPD(40,40),  FR(40,40) 

COMMON  /ICE/ZWND(40,40),ZLKICE(20),NICEXl(20),NICEYl(20), 

$  NICEX2(20),NICEY2(20),IPOS1(20),IPOS2(20)AMIUOANICE, 

$  SPAICE,NICERG,LICERG 

COMMON  /LKMD/  D(40,40),  S(40,40),  1X40,40),  V(40,40) 

COMMON  /VASB/  IGRILB(300),IGRIUB(300),IGRLBl(300),IGRUBl(300) 

COMMON  /GPARM/  RPARM(23),  IPARM(54),  ZPARM(2) 

COMMON  /ITPARM/  DSTMAX,  STMIN,  STMAX,  FRAC,  ITS 
COMMON  /GRIDS/  DXL,  DXR,  LGRIDX,  NGRIDX,  IRGRID,  BEGLK 
DATA  IDEM,  JDIM  / 40,40 / 

C  IDIM  AND  JDIM  ARE  THE  FIRST  AND  SECOND  DIMENSIONS  OF  THE  ARRAYS 
C  D,  S,  RHS,  AND  SPD 
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Subroutine  RLID 


DATA  LUNB,  LUNM,  LUNS  /13,  10,  6/ 

LUNB  IS  THE  LOGICAL  UNIT  NUMBER  FOR  THE  BATHYMETRIC  DATA 
LUNM  IS  THE  LOGICAL  UNIT  NUMBER  FOR  THE  METEOROLOGICAL  DATA 

DATA  OM,  FRO,  FRI  /7.29E-5,  2.E-3,  3.E-3/ 

PHY^TPAT  PON  A  NTS- 

OM  -  ANGULAR  SPEED  OF  ROTATION  OF  THE  EARTH  (RAD  /  S) 

FRO  -  FRICTIONAL  DRAG  COEFFICIENT  FOR  BOTTOM  STRESS 
FRI  -  FRICTIONAL  DRAG  COEFFICIENT  FOR  ICE  STRESS 

DATA  RELAX,  ITMAX,  CONV  /1.6,  SO,  l.E-3/ 

CONTROL  PARMETERS  FOR  STREAM  FUNCTION  RELAXATION  SCHEME 

RELAX  -  OVERRELAXATION  FACTOR  FOR  ITERATIVESOLUTION  OF  STREAM 
FUNCTION  EQUATION  AT  EACH  TIMESTEP 
TTMAX  -  MAXIMUM  NUMBER  OF  ITERATIONS  FOR  RELAXATION  SCHEME  AT 
EACH  TTMESTEP 

CONV  -  RELATIVE  CONVERGENCE  CRITERION  FOR  RELAXATION  SCHEME 

DATA  RLKQ,  RWD,  EFIRST  /201323.,  571.71,  0/ 

RLKQ  -  REFERENCE  LAKE  DIS.  FOR  STREAM  FUNCTION  INITIAL  CONDITION  FILE 
RWD  -  REFERENCE  WATER  LEVEL  FOR  BATHYMETRIC  DATA 

PI  -  ATAN(1.)  *  4. 

FIRST  TIME  THROUGH,  MODEL  RUNS  20  HOURS  TO  STEADY  STATE.  THEN,  RUNS 
FOR  UFDT  AMOUNT  OF  TIME  TO  UPDATE  DISCHARGES  AND  VELOCTITES.  TTS 
IS  USED  TO  KEEP  TRACK  OF  DURATION  OF  RLID  EXECUTION.  TIMET  IS  INCREASED 
BY  A  NEGLIGIBLE  AMOUNT  OF  TIME  TO  FACILITATE  ACCURATE  READING  OF 
METEOROLOGICAL  DATA  AND  DECREASED  BY  SAME  AMOUNT  BEFORE  RETURN  TO  SMOSIR 

HMSAV  -  TIMET 
TIMET  =  TiMET  +  0.000001 
TTS  -  UFDT 

IF  (IFIRST  .NE.  0)  GOTO  5 
TTS  -  20. 

5  CONTINUE 

READ  BATHYMETRIC  GRID  INFORMATION 

CALL  RGRnXLUNB,  D,  IDIM,  JDIM) 

READ  CONTROL  PARAMETERS 

READ  (LUNB,  100)  ET 
N STEPS  =  TTS  /  ET 

DADD  -  MEAN  WATER  LEVEL  RELATIVE  TO  RWD 

DADD  -  (CLWL-RWD)  /  3.281 
IM  -  IPARM(l) 

JM  -  IPARM(2) 
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Subroutine  RLID 


DS  -  RPARMC3) 

DMAX  -  RPARMC4) 

EMIN  -  RPARMCS)  +  DADD 

CALCULATE  CORIOLIS  PARAMETER  AT  CENTER  OF  GRID 

F  -  2.  *  OM  *  Sm(RLATOM*DS/2.,JM*DS/2.)*PI/180.) 

IFONDPRN  .EQ.  1)  WRTIECLUNS.llO)  ClPARMCl),I-S,S4),  DT,  TTS, 

1  DADD,  NSTEPS,  F 
IMM1  -  IM  -  1 
JMM1  -  JM  -  1 
IMM2  -  IM  -  2 
JMM2  -  JM  -  2 
DT  -  DT  *  3600. 

FDT24  -  F  *  DT  /  24. 

ADJUST  RELAXATION  FACTOR  FOR  GRID  SIZE 
IPCIFIRST  .NE.  0)  GOTO  6 

RELAX  -  RELAX  /  (l.  +  SINCACOSC0.5*CCOS(PI/IMM2)  +  COS(PI/JMM2))) 

l)) 

INTERPOLATE  DEPTH  TO  STREAM  FUNCTION  POINTS 
USING  SPEED  ARRAY  FOR  TEMPORARY  STORAGE 

6  DO  10  I  -  1,  IM 
DO  10  J  -  1,  JM 

SPDCI.J)  -  0.0  . 

S(U)  -  0. 

FR(I,J)  -  FRO 
ZWND(I,J)  -  1.0E0 
IF  CDCl.J)  .LT.  RPARM(5))  GOTO  10 
D(lfJ)  -  D(ltJ)  +  DADD 
10  RHSCl.J)  -  0. 

SET  FRICTION  FACTOR  AND  ZERO  WIND  ARRAY  IN  ICE  REGIONS 
ALSO  ADJUST  DEPTHS  FOR  ICE  THICKNESS 

EFCLICERG.EQ.O)  GOTO  2 
DO  1  N-1.LICERG 
LBEG  -  NICEXl(N) 

LEND  -  NICEX2CN) 

DO  111  L-LBEG.LEND 

IFCL  .GT.  LGRIDX)  GOTO  111 
IF(L  .EQ.  LBEG)  Ml-NICEYl(N) 

IF(L  .EQ.  LBEG  .OR.  L  .EQ.  LEND)  M2-NICEY2(N) 

IFOL  .EQ.  LBEG  AND.  L  .NE.  LEND)  M2-IGRIUB(L) 

IFCL  .EQ.  LEND  AND.  L  .NE.  LBEG)  Ml-IGRILBCL) 

IFCL  .NE.  LBEG  AND.  L  .NE.  LEND)  Ml-IGRILBCL) 

IFCL  .NE.  LBEG  AND.  L  .NE.  LEND)  M2-IGRIUBCL) 

DO  222  M-M1.M2 

ifCm.le.igrubiCl)  AND.  M.GE.IGRLBlCL))GOTO  222 
FRCL.M)  -  FRCL.iM)  +  FRI 
zwndCl.m)  -  0.0E0 

DCL.M)  -  D(L,M)  -  0.9*CZLKICECN)/3.28l) 

222  CONTINUE 


190 


Subroutine  RLID 


111  CONTINUE 
1  CONTINUE 

IF(INDPRN  .EQ.  l)  WRITE(M60) 

IFdNDPRN  .EQ.  l)  CALL  PRNTC6,  FR,  IDIM,  IM,  JM,  FRO) 

2  CONTINUE 
C 

C  IF  WATER  LEVEL  INCREMENT  RESULTS  IN  A  NEGATIVE  DMIN,  STOP. 
C 

IF  (DMIN  .LE.  0.0)  GOTO  90 
DO  20  I  -  1,  IM 
DO  20  J  -  1,  JM 

SPD(I,J)  -  0.999999  *  DMIN 
IF  (I  .EQ.  IM  .OR.  J  .EQ.  JM)  GOTO  20 
IF  (D(I,J)  .LT.  DMIN)  GOTO  20 
IF  (D(I  +  1.J)  .LT.  DMIN)  GOTO  20 
IF  (D(I,J  +  1)  .LT.  DMIN)  GOTO  20 
IF  (D(I  +  1,J  +  1)  .LT.  DMIN)  GOTO  20 
SPDCU)  -  0.25  *  (DCl.J)  +  D(I  +  1,J)  +  D(I,J  +  l)  +  D(l  +  1, 
1  J  +  D) 

20  CONTINUE 
C 

C  PRINT  RAfHYMETRIC  GRID  PARAMETERS 
C 

ffOFIRST  .NE.  0)  GOTO  25 
IFdNDPRN  .EQ.  1)  CALL  PGPARMCLUNS) 

C 

C  PRINT  BATHYMETRIC  GRID  INFORMATION 
C 

IFdNDPRN  .EQ.  1)  WRITBCLUNS,  140) 

IFdNDPRN  .EQ.  l)  CALL  PRNT(6,  D,  IDIM,  IM,  JM.  0.) 

C 

C  STORE  INVERSE  DEPTH  BACK  IN  D 
C 

25  DMINI  -  1.  /  DMIN 
DO  30  I  -  1,  IM 
DO  30  J  -  1,  JM 
D(I,J)  -  1.  /  SPDCI.J) 

30  SPD(I,J)  -  0.0 
C 

C  GET  INITIAL  CONDITIONS 
C 

CALL  INUXS,  IDIM,  TLKQ,  RLKQ,  INDPRN) 

C 

C  MAIN  ITERATION  LOOP 
C 

TIME=0. 

C  WRITE(M50) 

DO  80  N  -  1,  NSTEPS 
TIME  -  TME+DT/2. 

C 

C  CALCULATE  CURRENT  SPEED  AT  CENTER  OF  GRID  BOX  I,  J 
C 

DO  40  I  -  2,  IMM1 
DO  40  J  -  2,  JMM1 

IFCDd.J)  .GT.  DMINI  .AND.  D(I-1,J)  .GT.  DMINI  .AND. 

1  D(I,J-1)  .GT.  DMINI  AND.  D(I-1,J-1)  .GT.  DMINI)  GOTO  40 
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DU  -  0.5  *  (D(I,J)  +  D(I,J  -  1)) 

DV  -  0.5  *  OXl.J)  +  D(I  -  1,J)) 

DUM  -  0.5  *  (D(I  -  1,J)  +  DCl  -  1,J  -  1)) 

DVM  -  0.5  *  CD(U  -  1)  +  D(I  -  1,J  -  1)) 

SPDCl.J)  -  (O.S/DS)  *  SQRTCCCC(SCl.J)  -  S(I,J  -  l))*DU)  +  (( 

1  SQ  -  1,J)  -  SCI  -  1,J  -  1))*DUM))«2  +  (C(S(I,J)  -  SCI  -  1, 

2  J))*DV)  +  (CS(I,J  -  1)  -  SQ  -  1,J  -  l))*DVM))**2)) 

40  CONTINUE 

C 

C  ITERATE  TO  CALCULATE  STREAM  FUNCTION  AT  NEXT  TIME  STEP  WITH  ALTER - 
C  NATTNG  SWEEP  DIRECTIONS 
C 

DO  60  K  -  1,  ITMAX 
C  WRTIE(V)  K 

KK-K+N 
DSTMAX  -  0. 

STMIN  -  0. 

STMAX  -  0. 

ITS  -  K 

DO  50  II  -  1,  IM 
I  -  II 

IF  (MODCKK.2)  .EQ.  0)  I  -  IM  -  n  +  1 
DO  50  JJ  -  1,  JM 
J  -  JJ 

IF  (MODCKK.2)  .EQ.  0)  J  -  JM  -  JJ  +  1 
IF  (D(I,J)  .GT.  IMLND  GOTO  50 
DUP  -  0.5  *  OXl.J  +  1)  +  DO.J)) 

DVP  -  0.5  *  (D(I  +  l.J)  +  D(U)) 

SPDUP  -  0.5  *  (SPDCI  +  1,J  +  1)  +  SPDCl.J  +  l)) 

SPDVP  -  0.5  *  (SPDCI  +  1,J  +  1)  +  SPDCI  +  1,J)) 

DU  -  0.5  *  (D(U)  +  DCl,J  -  1)) 

*  DV  -  0.5  *  (D(I,J)  +  D(I  -  1,J)) 

SPDU  -  0.5  *  (SPDCI  +  1,J)  +  SPDCl.J)) 

SPDV  -  0.5  *  (SPDO.J  +  1)  +  SPDCI, J)) 

DCENT  -  DVP  +  DV  +  DUP  +  DU 
C 

C  LAPLACIAN  TERM 
C 

TERM1  -  DVP  *  SCI  +  1,J)  +  DV  *  SO  -  1,J)  +  DUP  *  S(I,J  + 

1  1)  +  DU  *  SCI, I  -  1)  -  DCENT  *  SCI.J) 

C 

C  ARAKAWA'S  JACOBIAN 
C 

TERM2  -  SCI  +  1,J)  *  (DCl.J  +  1)  +  D(I  +  1,J  +  l)  -  D(I,J 

1  -  1)  -  DO  +  1,J  -  D)  +  SCI  -  1,J)  *  (-DCI.J  +  1)  -  D(I  - 

2  l.J  +  1)  +  D(I.J  -  1)  +  D(I  -  1,J  -  1))  +  S(I,J  +  l)  *  (- 

3  D(I  +  1,J)  -  D(I  +  l.J  +  1)  +  D(I  -  1,J)  +  D(I  -  l.J  +  1)) 

4  +S(I,J  -  1)  *  (D(I  +  l.J)  +  D(I  +  1,J  -  1)  -  D(I  -  l.J)  - 

5  D(I  -  l.J  -  1))  +  SCI  +  1.J  +  1)  *  (-DO  +  l.J)  +  D(U  + 

6  1))  +  SCI  +  l.J  -  1)  *  (DO  +  l.J)  -  D(I,J  -  1))  +  SCI  - 

7  l.J  +  1)  *  (D(I  -  l.J)  -  DCl.J  +  1))  +  SCI  -  l.J  -  1)  *  (- 

8  D(I  -  l.J)  +  DCl.J  -  1)) 

C 

C  FRICTION  TERM 
C 

TYP  -  -DVP  *  (SCI  +  l.J)  -  SCI.J))  *  FRO+l.J)  *  SPDVP 
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TYM  -  -DV  *  (S(I,J)  -  SCI  -  1,J))  *  FR(I-l.J)  *  SPDV 
TXP  -  DUP  *  (S(I,J  +  1)  -  S(I,J))  *  FR(I,J+l)  *  SPDUP 
TXM  -  DU  *  (S(U)  -  SU,J  -  O)  *  FR(I,J-1)  *  SPDU 
TERM3  -  (DVP*TYP  -  DVTYM  -  DUP*TXP  +  DU*TXM) 

C 

C  SET  RIGHT  HAND  SIDE  THE  FIRST  TIME  THROUGH 
C 

IF  (K  .EQ.  1)  RHSO.J)  -  TERM1  -  FDT24  *  TERM2  +  DT  *  0.5 

1  *  TERM3+DT  *  DS  *  (DVP*ZWND(I+l,J)*TAUCnMEr,I+l,J,2)  - 

2  DV*ZWND(l,J)*TAUCnMEriI,J,2)  -  DUP*ZWND(l,J+l)* 

3  TAU(TIMEr,I,  J+l  ,1>+DU»ZWND(I.J)*TAUCTIMET,I,J,1)) 

IF  (K  .EQ.  1)  GOTO  50 

C 

C  CALCULATE  NEW  STREAM  FUNCTION 
C 

D4  -  DCENT  +  FR(I,J)  *  0.5  *  DT  *  (DVP**2*SPDVP  +  DV**2* 

1  SPDV  +  DUP**2*SPDUP  +  DU**2*SPDU) 

DST  -  (TERM1  +  FDT24*TERM2  -  O.S*DT*TERM3  -  RHSCl.J))  /  D4 
SCl,J)  -  SCl.J)  +  RELAX  *  DST 
DSTMAX  -  AMAXlCDSTMAXyABSCDST*)) 

STMIN  -  AMINl(STMIN,S(I,J)) 

STMAX  -  AMAXlCSTMAX.SCl.J)) 

50  CONTINUE 

C 

C  CALCULATE  RELATIVE  CHANGE  IN  STREAM  FUNCTION  FOR  ALL  ITERATIONS  BUT 
C  THE  FIRST 
C 

IF  (K  .EQ.  1)  GOTO  60 
IF  (STMAX  .EQ.  STMIN)  GOTO  70 
rRAC  -  DSTMAX  /  (STMAX  -  STMIN) 

IF  (FRAC  .LE.  CONV)  GOTO  70 
60  CONTINUE 
70  CONTINUE 
C 

C  UPDATE  TIME 
C 

TTME=N*DT 

C 

C  CALL  OUTPUT  ROUTINE 
C 

CALL  OUTP(TIME,  ITS,  IDIM) 

C  IFONDPRN  .EQ.  1)  WRITECLUNS,*)  N 
C 

C  END  MAIN  ITERATION  LOOP 
C 

80  CONTINUE 
GOTO  130 

90  WRITECLUNS,  120)  DADD 
GOTO  130 
100  FORMAT  (G8.2) 

110  FORMAT  Cl  RIGID  LID  CIRCULATION  MODEL  FOR  \ 

1  50A1/’  TIME  STEPCH):  DT-  F10.2/ 

1  ’  DURATION  OF  RUN(K).  IT-  F7.2/ 

2  ’  MEAN  WATER  LEVELCM)  (RELATIVE  TO  L.W.D.):  DADD-  F5.2/ 

3  *  NUMBER  OF  TIME  STEPS:  N STEPS-’,  16/ 

4  ’  CORIOLIS  PARAMETER  (S**-l):  F-  E10.3) 
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120  FORMAT  C  THE  WATER  LEVEL  INCREMENT,  F8.2,  ’  RESULTS  IN  A’, 
1  *  NEGATIVE  MINUMUM  DEPTH  -  PROGRAM  TERMINATED’) 

140  FORMAT  (lHl/Tresent  Lake  Grid  Depths  in  Meters’/) 

C  150  FORMAT  (1H1,/Time  Step  #  for  Stream  Function  Calculation’/) 
160  FORMAT  (1H1, /’Areas  with  Ice  Cover  and  NO  Wind  Stress,’, 

1’  Numbers  Represent  Drag  Coefficient1/) 

130  CONTINUE 
EFIRST  -  1 
TIMET  -  TIMSAV 
RETURN 
END 
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SUBROUTINE  UPDATE  (IDIM) 

PURPOSE  : 

TO  UPDATE  THE  TRANSPORTS  BY  READING 
THE  STREAM  FUNCTION  FIELDS  AT  INTERVALS 
SPECIFIED  BY  THE  USER. 

ARGUMENTS  : 

D  -  DEPTH  ARRAY  (MEIERS) 

U  -  COMPONENT  OF  TRANSPORT  IN  X- DIRECTION 
V  -  COMPONENT  OF  TRANSPORT  IN  Y- DIRECTION 
S  -  STORAGE  ARRAY  CONTAINING  STREAM  FUNCTION  FIELDS 
IDIM  -  FIRST  DIMENSION  OF  D,U,  AND  V  IN  DIMENSION  STATEMENT 
OF  CALLING  PROGRAM 


COMMON  BLOCK  : 

/GPARM/  RPARM(23),  IPARM(54),ZPARM(2) 

Last  Date  of  Revision  :  September  24,  1985 

*************************************************************************** 
COMMON  /LKMD/  13(40,40),  S(40,40),  U(40,40),  V(40,40) 
COMMON  /GPARM/  RPARM(23),  IPARM(54),  ZPARM(2) 

IM  -  IPARMd) 

JM  -  IPARM(2) 

DS  -  RPARM(3) 

REWIND  STREAM  FUNCTION  FILE 
REWIND  15 

GET  STREAM  FUNCTION  FROM  CURRENT  TIMESTEP 

READ(15,40)  ((S(I,J).I-1,IM),J-1,JM) 

CALCULATE  X  COMPONENT  OF  TRANSPORT 

DO  20  I-l.IM 
DO  20  J-2.JM 

lXl,JMS(I,J-l)  -  S(I,J))/DS 
20  CONTINUE 

CALCULATE  Y  COMPONENT  OF  TRANSPORT 

DO  30  1-2, IM 
DO  30  J-l.JM 

V(I,J)-(S(I,J)  -  S(I-1,J))/DS 
30  CONTINUE 
40  FORMATXE12.5) 

RETURN 

END 
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1 

SUBROUTINE  UZLCUM,  ZM,  TD,  ZTM,  CD,  CH,  ZO,  FL) 

PURPOSE: 

TO  CALCULATE  TOE  BULK  AERODYNAMIC  COEFFICIENTS  FOR 
MOMENTUM  AND  HEAT  OVER  A  LAKE  SURFACE  AS  FUNCTIONS 
OF  WIND  SPEED  AND  AIR -SEA  TEMPERATURE  DIFFERENCE. 

ALGORITHM: 

THERE  IS  AN  OUTER  ITERATION  IN  WHICH  THE  ROUGHNESS 
LENGTH  IS  VARIED  ACCORDING  TO  CHARNOCK’S  FORMULA  AND 
AN  INNER  ITERATION  IN  WHICH  TOE  STABILITY  LENGTH 
(MONIN -OBUKHOV  LENGTH")  IS  VARIED  ACCORDING  TO  THE 
BUSINGER-DYER  FORMULATION.  THE  CONSTANT  IN  CHARMOCK’S 
FORMULA  IS  CHOSEN  SO  THAT  UNDER  NEUTRAL  CONDITIONS  TOE 
10  M  DRAG  COEFFICIENT  IS  0.0016. 

ARGUMENTS: 

ON  INPUT: 

UM  -  WIND  SPEED  (M  /  S) 

ZM  -  ANEMOMETER  HEIGHT  (M) 

TD  -  AIR-SEA  TEMPERATURE  DIFFERENCE  (DBG  K) 

ZTM  -  THERMOMETER  HEIGHT 

(INITIALLY  ASSUMED  EQUAL  TO  ANEMOMETER  HEIGHT) 

ON  OUTPUT: 

CD  -  BULK  AERODYNAMIC  COEFFICIENT  FOR  MOMENTUM 
CH  -  BULK  AERODYNAMIC  COEFFICIENT  FOR  HEAT 
ZO  -  ROUGHNESS  LENGTH  (M) 

FL  -  STABILITY  LENGTH  (M) 

HISTORY: 

WRITTEN  BY  J.  R.  BENNETT  AND  J.  D.  BOYD,  1979,  GLERL, 

ANN,  ARBOR,  MI;  BASED  ON  A  CONSTANT  ROUGHNESS  VERSION 
WRITTEN  BY  PAUL  LONG  AND  WILL  SHAFFER  OF  TOE  TECHNIQUES 
DEVELOPMENT  LABORATORY,  NOAA,  SILVER  SPRINGS,  MD. 


************************************************************************** 
DATA  Cl,  C2,  C3  /.684E-4,  4.28E-3,  -4.43E-4/ 

DATA  Bl,  B2,  B3  /1.7989E-3,  4.865E-4,  3.9028E-5/ 

EPS  -  .01 

IF  (UM  .LT.  .001)  UM  -  .001 
FK  -  .35 
TBAR  -  278. 

ALPHA  -  4.7 
BETA  -  .74 
GAMM  -  15. 

GAMT  -  9. 

UST1  -  0.04  *  UM 
H  -  ZM 
DTHETA  -  TD 

IF  (ABS(DTHETA)  .LT.  l.E-7)  DTHETA  -  SIGN(l.E- 7, DTHETA) 
INITIAL  GUESS  FOR  ZO 

ZO  -  .00459  *  UST1  *  UST1 
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S  -  UM  *  UM  *  TBAR  /  (9.8*DTHETA) 

IF  CABSCS)  .GT.  1.E6)  S  -  SIGN(1.E6,S) 

X  -  ALOG(H/ZO) 

INITIAL  GUESS  FOR  L 

FL  -  S  /  X 

DO  60  ITER  -  1,  20 

X  -  ALOG(H/ZO) 

IF  (ABS(FL)  .GT.  3.E6)  FL  -  SIGN(3.E6,FL) 

IF  (FL  .GT.  0.)  GOTO  20 

UNSTABLE  SECTION  (L  LT  0  OR  DT  LT  0) 

FU  -  1.  /  FL 

ASSUME  5  ITERATIONS  SUFFICIENT 

DO  10  I  -  1,  5 
XI  -  GAMT  *  FU 
ARG1  -  SQRTCl.  -  X1*H) 

ARG2  -  SQRT(1.  -  X1*Z0) 

A  -  BETA  *  AL0G(CARG1  -  l.)*(ARG2  +  l.)/((ARGl  +  1.XARG2  - 
1  1.))) 

XI  -  GAMM  *  FU 

ARG1  -(1.  -  Xl*H)  **  (.25) 

ARG2  -  (1.  -  X1*Z0)  **  (.25) 

B  -  AL0G((ARG1  -  1.XARG2  +  l.)/((ARGl  +  1.XARG2  -  1.)))  + 

1  2.  *  (ATANCARGI)  -  ATAN(ARG2)) 

FL  -  S  *  A  /  (B*B) 

IF  (ABSCFL)  .GT.  3.E6)  FL  -  SIGN(3.E6,FL) 

FU  -  1.  /  FL 
10  CONTINUE 
GOTO  50 

STABLE  SECTION 

TRY  MILDLY  STABLE- 

20  CONTINUE 
AA  -  X  *  X 

XI  -  H  -  ZD 

BB  -  9.4  *  XI  *  X  -  .74  *  S  *  X 

CC  -  4.7  *  XI 

CC  -  CC  *  CC  -  CC  *  S 

ROOT  -  BB  *  BB  -  4.  *  AA  *  CC 

IF  (ROOT  .LT.  0.)  GOTO  30 

FL  -  (-BB  +  SQRTtROOT))  /  (2.*AA) 

IF  (FL  .LE.  H)  GOTO  30 
B  -  X  +  4.7  *  XI  /  FL 
A  -  BETA  *  X  +  4.7  *  XI  /  FL 
GOTO  50 

STRONGLY  STABLE - 
30  CONTINUE 
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IF  (FL  .LE.  ZO)  FL  -  ZO  +  l.E-5 
DO  40  I  -  1,  5 
ARGl  -  FL  /  ZO 

XI  -  alogOvrgi) 

X2  -  ALOGCH/FL) 

ARGl  -  1.  -  1.  /  ARGl 
A  -  .74  *  XI  +  4.7  *  ARGl  +  5.44  *  X2 
B  -  XI  +  4.7  *  ARGl  +  5.7  *  X2 
FL  -  A  *  S  /  (B*B) 

IF  (FL  .LE.  ZO)  FL  -  ZO  +  l.E-5 
IF  (FL  .GT.  H)  FL  -  H 
40  CONTINUE 

CALCULATE  USTAR  AND  ZONEW 

50  CONTINUE 

TSTAR  -  FK  *  DTHETA  /  A 

USTAR  -  FK  *  UM  /  B 

ZONEW  -  .00459  *  USTAR  *  USTAR 

IF  (ITER  .GT.  5  AND.  ABS((USTAR  -  USTl)/USTl)  .LT.  EPS) 

1  GOTO  80 
UST1  -  USTAR 
ZO  -  ZONEW 
60  CONTINUE 

IF  COME  HERE,  TOO  MANY  ITERATIONS  (UGH  -  UGH) 

WRTTE^JO) 

70  FORMAT  (’OTOO  MANY  ITERATIONS  ON  ZO  IN  SUBROUTINE  UZL  -  CHECK  \ 
1  ’METEOROLOGICAL  DATA  -  PROGRAM  TERMINATED’) 

STOP 

80  CONTINUE 
ZO  -  ZONEW 
CD  -  (USTAR AJM)  **  2 
CH  -  FK  *  FK  /  (A*B) 

90  RETURN 
END 
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FUNCTION  RLATCX.Y) 

PURPOSE:  TO  RETURN  LATITUDE  OF  A  POINT  ON  THE  GRID 

DESCRIBED  BY  THE  COMMON  BLOCK  /GPARM/,  GIVEN  THE 
X  AND  Y  DISPLACEMENTS  FROM  TOE  GRID  ORIGIN 

ARGUMENTS: 

X  -  X  DISTANCE  FROM  TOE  GRID  ORIGIN  (M) 

Y  -  Y  DISTANCE  FROM  TOE  GRID  ORIGIN  CM) 

RPARM,  IPARM  -  ARRAYS  CONTAINING  BATHYMETRIC  GRID 
PARAMETERS  AS  DESCRIBED  IN  SUBROUTINE  RGRED 

COMMON  BLOCK:  /GPARM/RPARM(23),IPARMC54),ZPARM(2) 

Last  Date  of  Revision  :  September  11,  1985 

*********************************************************************** 

COMMON  /GPARM/  RPARMC23),  IPARMC54),  ZPARM(2) 

PI  -  ATAN2(0.,-1.) 

ALPHA  -  RPARMC7)  *  PI  /  180. 

TRANSFORM  TOE  POINTS  TO  TOE  TRIMED’  COORDINATE  SYSTEM, 

IE.,  THAT  OF  TOE  STANDARD  BATHYMETRIC  GRID 

FIRST  TRANSLATE 

XX  -  X  -  ZPARMCl)  *  RPARMC3) 

YY  -  Y  -  ZPARMC2)  *  RPARMC3) 

NOW  ROTATE 

XP-(XX*COSCALPHA)  -  YY*SIN(ALPHA))/( 1000.) 
YP=(YY*COS(ALPHA)+XX*SINCALPHA))/( 1 000.) 

DLAT  -  RPARMC20)  *  XP  +  RPARM(2l)  *  YP  +  RPARMC22)  *  XP  *  YP  + 

1  RPARMC23)  *  XP  **  2 

RLAT  -  RPARMCl)  +  DLAT 
RETURN 
END 
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q  ****************************************************************** 

FUNCTION  TAU(T,  If  J,  iO 
PURPOSE  : 

TO  RETURN  WIND  STRESS  DIVIDED  BY  WATER  DENSITY  IN 
METERS**2/SECOND**2  FOR  GRID  BOX  I,J  AT  TIME  T. 

THE  PARAMETER  K  INDICATES  WHICH  COMPONENT  OF  WIND 
STRESS  IS  RETURNED.  THE  X- COMPONENT  OF  WIND  STRESS 
IS  CALCULATED  AT  THE  MIDDLE  OF  THE  RIGHT  SIDE  OF  THE 
GRID  BOX.  THE  Y- COMPONENT  IS  CALCULATED  AT  THE  MIDDLE 
OF  THE  TOP  SIDE.  BOTH  COMPONENTS  ARE  LINEAR  FUNCTIONS 
OF  X  AND  Y. 

ALGORITHM:  THIS  FUNCTION  READS  METEOROLOGICAL  DATA  FROM  A  FILE, 

CONVERTS  IT  TO  WIND  STRESS,  AND  INTERPOLATES  THE  WIND 
STRESS  IN  TIME  AND  SPACE.  ALL  DATA  FOR  THE  SAME  TIME 
ARE  GROUPED  TOGETHER,  WITH  A  MAXIMUM  OF  25  STATIONS  IN 
A  GROUP.  AS  DATA  RECORDS  ARE  READ,  SUBROUTINE  UZL  IS 
USED  TO  CONVERT  METEOROLOGICAL  MEASUREMENTS  TO  SUR¬ 
FACE  STRESS  FOR  EACH  STATION.  THE  TWO  COMPONENTS  OF 
THE  WIND  STRESS  ARE  ASSUMED  TO  BE  LINEAR  FUNCTIONS  OF 
X  AND  Y  AND  THE  BEST-FIT  LINEAR  SURFACE  FOR  THE  GIVEN 
DATA  POINTS  IS  CALCULATED.  EACH  TIME  TAU  IS  CALLED, 

THE  TIME  PARAMETER  IS  CHECKED  AGAINST  THE  TIME  OF  THE 
LAST  SET  OF  METEOROLOGICAL  DATA  READ.  EF  IT  IS  GREATER, 
ANOTHER  GROUP  IS  READ.  IF  IT  IS  LESS,  THE  APPROPRIATE 
WIND  STRESS  COMPONENT  IS  CALCULATED  USING  LINEAR  INTER¬ 
POLATION  BETWEEN  THE  LAST  TWO  LINEAR  SURFACES  COM¬ 
PUTED  FOR  THAT  COMPONENT.  IF  THE  END-OF-FILE  IS  EN¬ 
COUNTERED,  WIND  STRESS  IS  CALCULATED  WITH  THE  LAST 
LINEAR  SURFACE  COEFFICIENTS. 

THE  X- COMPONENT  OF  STRESS  FOR  GRID  BOX  I.J  HAS  CO¬ 
ORDINATES  (I*DELTA,(J-1/2)*DELTA)  RELATIVE  TO  THE  GRID 
ORIGIN,  AND  THE  Y- COMPONENT  OF  STRESS  HAS  COORDINATES 
((I-1/2)*DELTA,J*DELTA),  WHERE  DELTA  IS  THE  GRID  SIZE. 

MANY  OF  THE  VARIABLES  USED  IN  THIS  FUNCTION  ARE  ASSUM¬ 
ED  TO  HAVE  RETAINED  THEIR  VALUES  FROM  THE  PREVIOUS 
CALL.  IF  YOUR  FORTRAN  SYSTEM  DOES  NOT  DO  THIS  AUTO¬ 
MATICALLY,  PROVISION  MUST  BE  MADE  TO  RETAIN  VALUES 
FOR  THE  VARIAELES:ISTA,  AOLD1,  BOLD1,  COLD1,  AOLD2, 

BOLD2,  COLD2,  ANEW1,  BNEW1,  CNEW1,  ANEW2,  BNEW2,  CNEW2, 
TOLD,  TNEW,  HAST,  RLAT,  RLON,  Z,  TA,  TW,  WS,  WD. 

ARGUMENTS: 

T  -  TIME  IN  SECONDS  FROM  BEGINNING  OF  RUN  AT  WHICH 
STRESS  IS  TO  BE  CALCULATED 
I  -  FIRST  INDEX  OF  GRID  BOX  FOR  WHICH  STRESS  IS  TO 
BE  CALCULATED 

J  -  SECOND  INDEX  OF  GRID  BOX  FOR  WHICH  STRESS  IS  TO 
BE  CALCULATED 

K  -  SPECIFIES  WHETHER  X- COMPONENT  OR  Y- COMPONENT 
OF  STRESS  IS  RETURNED.  IF  K-l,  THE  X- COMPONENT 
OF  STRESS  AT  THE  MIDDLE  RIGHT  SIDE  OF  GRID  BOX 
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I,  J  IS  RETURNED.  IF  K-2,  THE  Y- COMPONENT  OF 
STRESS  AT  THE  MIDDLE  TOP  SIDE  OF  GRID  BOX  I,  J 
IS  RETURNED. 

INPUT: 

LOGICAL  UNIT  13  : 

METEOROLOGICAL  DATA  FILE 

CARD  COLUMN  FORMAT  PARAMETER 


1-10 

G10.4 

TLAST  -  TIME  (HRS)  FROM  BEGINNING 
OF  RUN 

11-20 

G10.4 

RLAT  -  LATITUDE  IN  DEGREES  NORTH 

21-30 

G10.4 

RLON  -  LONGITUDE  IN  DEGREES  WEST 

31-40 

G10.4 

Z  -  HEIGHT  OF  INSTRUMENTS  (FT) 

41-50 

G10.4 

TA  -  TEMPERATURE  OF  AIR  (P) 

51-60 

G10.4 

TW  -  TEMPERATURE  OF  WATER  (F) 

61-70 

G10.4 

WS  -  WIND  SPEED  (FT/S) 

71-76 

G6.0 

WD  -  WIND  DIRECTION  (DEG) 

ALL  DATA  FOR  THE  SAME  TIME  ARE  GROUPED  TOGETHER,  WITH  A 
MAXIMUM  OF  25  STATIONS  IN  A  GROUP. 


‘NOTE  THAT  END  OF  FILE  IS  INDICATED  BY  A  RECORD  WITH  A  NEGATIVE 
TIME. 

OUTPUT  : 

LOGICAL  UNIT  6: 

PRESENTATION  OF  METEOROLOGICAL  DATA  STATION  BY  STATION 
COMMON  BLOCKS: 

/GPARM/  RPARM(23),IPARM(54),ZPARM(2) 
/ICE/ZWND(40>40),ZLKICB(20),NICEXl(20),NICEYl(20), 

NICEX2(20),NICEY2(20),IPOS1(20),IPOS2(20),AMIUO,ANICE, 
SPAICE.NICERG  .LICERG 

SUBPROGRAMS  : 

FUNCTION  XDIST  -  RETURNS  X  DISTANCE  FROM  GRID  ORIGIN 

GIVEN  LATITUDE  AND  LONGITUDE 
FUNCTION  YDIST  -  RETURNS  Y  DISTANCE  FROM  GRID  ORIGIN 

GIVEN  LATITUDE  AND  LONGITUDE 
SUBROUTINE  UZL  -  RETURNS  DRAG  COEFFICIENT  CD 

HISTORY  : 

WRITTEN  BY  A.  T.  JESSUP,  1981,  GLERL,  ANN  ARBOR,  MI 

•MODIFIED  AUGUST,  1983  TO  PROPERLY  HANDLE  CO-LINEAR 
METEOROLOGICAL  DATA  POINTS 

Last  Date  of  Revision  :  September  11,  1985 

************************************************************************** 

DIMENSION  X(25),  U(2),  Y(25),  ATAU(25,2) 

LOGICAL  XEQ,  YEQ 

COMMON  /GPARM/  RPARMC23),  IPARM(54),  ZPARM(2) 

COMMON  /ICE/ZWND(40,40),ZLKICE(20),NICEX1(20),NICEY1(20), 

S  NICEX2(20),NICEY2(20),IPOS  l(20),IPOS2(20),AMIUO,ANICE, 

S  SPAICE.NICERG, LICERG 


201 


uuu  uuo  uoo  uuu 


Function  TAU 


DATA  RHOAW,  ISTA,PINDEX  /1.25E-3,  0,1/ 

DATA  LUN  no/ 

DATA  AOLD1,  B0LD1,  C0LD1,  AOLD2,  BOLD2,  COLD2,  TOLD  /7*0./ 
STATEMENT  FUNCTION  TO  CALCULATE  DETERMINANT  OF  3  BY  3  MATRIX 

DEItAll,  A21,  A31,  A12,  A22,  A32,  A13,  A23,  A3 3)  - 

1  All  *  A22  *  A33  -  All  *  A23  •  A32  + 

2  A12  *  A23  *  A31  -  A12  *  A21  *  A33  + 

3  A13  *  A21  *  A32  -  A13  *  A22  *  A31 

IF  THIS  IS  THE  FIRST  TIME  THROUGH,  READ  A  RECORD 

IF  (ZWND(I,J)  .EQ.  0.0D0)  RETURN 
IF  (ISTA  .EQ.  0)  GOTO  30 

CHECK  IF  NECESSARY  TO  READ  ANOTHER  RECORD 

IF  (T  .LT.  TNEW  .OR.  TNEW  .LT.  0.)  GOTO  90 
10  AOLD1  -  ANEW1 
BOLD1  -  BNEW1 
COLD1  -  CNEW1 
AOLD2  -  ANEW2 
BOLD2  -  BNEW2 
COLD2  -  CNEW2 
TOLD  -  TNEW 
20  TNEW  -  TLAST 

IF  (TNEW  .LT.  0)  GOTO  90 

FIND  ATAU,  THE  WIND  STRESS  FOR  THE  CURRENT  STATION 

TD  -  TA  -  TW 

X(ISTA)  -  XDISTtRLAT.RLON) 

YfTCTA”)  -  YDT^nfRT  AT  PT/W) 

U(l)  -  WS  *  COSC(27o!  -  WD  -  RPARM(6)  -  RPARM(7))*ATAN(l.)/45.) 
LK2)  -  WS  *  SINCC270.  -  WD  -  RPARM(6)  -  RPARM(7))*ATAN(l.)/45.) 
CALL  UZLCWS,  2,  TD,  Z,  CD,  CH,  ZO,  FL) 

CDD  -  CD  *  1.E3 
TILAST  -  TLAST  /  3600. 

XKM  -  X(ISTA)  /  1000. 

YKM  -  Y(ISTA)  /  1000. 

ZUNI  -  Z*3.282 
TAUNI  -  TA*9./5.  +32. 

TWUNI  -  TW*9./5.  +  32. 

WSUNI  -  WS*2.238 
IF(PINDEX.EQ.l)WRrrE(*,843) 

PINDEX-PINDEX+1 

WRTIECMSO)  TILAST,  RLAT,  RLON,ZUNI,TAUNI,TWUNI, WSUNI, WD 
ATAU(ISTA,1)  -  CD  *  RHOAW  *  U(l)  *  WS 
ATAU(ISTA,2)  -  CD  *  RHOAW  *  U(2)  *  WS 
30  READ  (LUN,  130)  TLAST,  RLAT,  RLON,  Z,  TA,  TW,  WS,  WD 
Z  -  Z  7  3.281 
TA  -  5./9.KTA  -  32.) 

TW  -  S./9XTW  -  32.) 

WS  -  WS  /  3.281 
TLAST  -  TLAST  *  3600. 
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Function  TAU 


IF  (T  .LT.  HAST  AND.  ISTA  .EQ.  0)  GOTO  120 

ISTA  -  ISTA  +  1 

IF  FIRST  TIME  THROUGH,  FIND  ATAU 

IF  (ISTA  .EQ.  1)  GOTO  20 

CHECK  IF  LAST  RECORD  AT  TIME  HAST  HAS  BEEN  READ 

IF  (HAST  .EQ.  TNEW)  GOTO  20 

NOW  FIND  THE  BEST-FIT  LINEAR  SURFACE 

SX  -  0. 

SY  -  0. 

SXY  -  0. 

SX2  -  0. 

SY2  -  0. 

SXTAU1  -  0. 

SYTAUl  -  0. 

SATAU1  -  0. 

SXTAU2  -  0. 

SYTAU2  -  0. 

SATAU2  -  0. 

N  -  ISTA  -  1 

AN  -  FLOAT(N) 

XEQ  -  .TRUE. 

YEQ  -  .TRUE. 

DO  40  IN  -  1,  N 
SX  -  SX  +  X(IN) 

SY  -  SY  +  Y(IN) 

SXY  -  SXY  +  X(IN)  *  Y(IN) 

SX2  -  SX2  +  XdN)  **  2 
SY2  -  SY2  +  Y(IN)  **  2 
SXTAU1  -  SXTAU1  +  X(IN)  *  ATAU(IN,1) 

SYTAUl  -  SYTAUl  +  Y(IN)  *  ATAU(IN,1) 

SXTAU2  -  SXTAU2  +  X(IN)  *  ATAU(IN,2) 

SYTAU2  -  SYTAU2  +  Y(IN)  *  ATAU(IN,2) 

SATAU1  -  SATAU1  +  ATAlXlN.l) 

SATAU2  -  SATAU2  +  ATAU(IN,2) 

IF  ('X(IN)  .NE.  X(l))  XEQ  -  .FALSE. 

IF  (Y(IN)  .NE.  Y(l))  YEQ  -  .FALSE. 

40  CONTINUE 

CALCULATE  COEFFICIENTS  ANEW,  BNEW,  CNEW,  WHERE 

TAU  -  ANEW  *  X  +  BNEW  *  Y  +  CNEW 
FOR  EACH  COMPONENT. 

ANEW1  -  0. 

ANEW2  -  0. 

BNEW1  -  0. 

BNEW2  -  0. 

CNEW1  -  SATAU1  /  AN 

CNEW2  -  SATAU2  /  AN 

CHECK  FOR  ONE  DATA  POINT  ONLY 
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Function  TAU 


IF  CXEQ  AND.  YEQ)  GOTO  80 

CHECK  IF  DATA  POINTS  ARE  CO -LINEAR 

IFCN  .EQ.  2)  GOTO  60 
DO  50  IN  -  3.  N 

A  -  SQRTtCXCl)  -  XClN))**2  +  CY(l)  -  YClN))**2) 

B  -  SQRTCCXCl)  -  X(IN-l))**2  +  CYtt)  -  Y(IN-l))**2) 

C  -  SQRTCCXClN)  -  X(IN-1)>*2  +  (YClN)  -  Y(IN-1))**2) 

S-CA  +  B  +  O/2. 

D  -  SQRT(S  *  (S  -  A)  *  (S  -  B)  *  Cs  -  O)  /  AMAXlCA,  B,  C,  1.) 

IF  NOT  CO-LINEAR,  GOTO  75 

IF  CD  .GT.  100.)  GOTO  75 
50  CONTINUE 

CALCULATE  COEFFICIENTS  FOR  CO-LINEAR  DATA  POINTS 

60  'WRITBC’,175) 

60  CONTINUE 
DO  70  IN-2, N 

IF  (X(IN)  .EQ.  X(l)  AND.  Y(IN)  .EQ.  Y(l))  GOTO  70 
JN-IN 

70  CONTINUE 

ALPHA  -  ATAN2(Y(JN)  -  YCl),  X(JN)  -  XCl)) 

CN  -  COSCALPHA) 

SN  -  SINCALPHA) 

SS  -  CN  *  SX  +  SN  *  SY 

SS2  -  CN  *  CN  *  SX2  +  2.  *  CN  *  SN  *  SXY  +  SN  *  SN  *  SY2 
SSTAU1  -  CN  *  SXTAU1  +  SN  *  SYTAU1 
SSTAU2  -  CN  *  SXTAU2  +  SN  *  SYTAU2 
D  -  AN  *  SS2  -  SS  *  SS 

ANEW1  -  CN  *  (AN  *  SSTAU1  -  SS  *  SATAUl)  /  D 
ANEW2  -  CN  *  CAN  *  SSTAU2  -  SS  *  SATAU2)  /  D 

BNEW1  -  SN  *  CAN  *  SSTAU1  -  SS  *  SATAUl)  /  D 

BNEW2  -  SN  *  CAN  *  SSTAU2  -  SS  *  SATAU2)  /  D 

CNEW1  -  CSS2  *  SATAUl  -  SSTAU1  *  SS)  /  D 
CNEW2  -  CSS2  *  SATAU2  -  SSTAU2  *  SS)  /  D 
GOTO  80 

CALCULATE  COEFFICIENTS  FOR  BEST-FIT  LINEAR  SURFACE 

75  D  -  DETCSX2,  SXY,  SX,  SXY,  SY2,  SY,  SX,  SY,  AN) 

ANEW1  -  DEICSXTAUI,  SYTAU1,  SATAUl,  SXY,  SY2,  SY,  SX,  SY,  AN)  /  D 

ANEW2  -  DETCSXTAU2,  SYTAU2,  SATAU2,  SXY,  SY2,  SY,  SX,  SY,  AN)  /  D 

BNEW1  -  DEICSX2,  SXY,  SX,  SXTAU1,  SYTAU1,  SATAUl,  SX.  SY.  AN)  /  D 

BNEW2  -  DETCSX2,  SXY,  SX,  SXTAU2,  SYTAU2,  SATAU2,  SX,  SY,  AN)  /  D 

CNEW1  -  DEICSX2,  SXY,  SX,  SXY,  SY2,  SY,  SXTAU1,  SYTAU1,  SATAUD/D 

CNEW2  -  DETCSX2,  SXY,  SX,  SXY,  SY2,  SY,  SXTAU2,  SYTAU2,  SATAU2)/D 

80  CONTINUE 
ISTA  -  1 

IF  CT  .GT.  TNEW)  GOTO  10 

DETERMINE  PROPER  LOCATION  XS.YS  AND  CALCULATE  STRESS 
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Function  TAU 


IF  (XEQ  AND.  YEQ)  GOTO  80 

CHECK  IF  DATA  POINTS  ARE  CO-LINEAR 

IF(N  .EQ.  2)  GOTO  60 
DO  50  IN  -  3,  N 

A  -  SQRTC(X(1)  -  XdN)>*2  +  (YCl)  -  Y(IN))**2) 

B  -  SQRTt(X(l)  -  X0N-1))**2  +  (Y(l)  -  YClN-l))**2) 

C  -  SQRTC(X(IN)  -  XClN-l))**2  +  (Y(IN)  -  Y(IN-1))**2) 

S-(A  +  B  +  C)/2. 

D  -  SQRTCS  *  (S  -  A)  *  (S  -  B)  *  (S  -  C))  /  AMAXlCA,  B,  C,  1.) 

IF  NOT  CO-LINEAR.  GOTO  75 

IF  (D  .GT.  100.)  GOTO  75 
50  CONTINUE 

CALCULATE  COEFFICIENTS  FOR  CO-LINEAR  DATA  POINTS 

60  WRITEC*,175) 

60  CONTINUE 
DO  70  IN-2, N 

IF  (X(IN)  .EQ.  X(l)  AND.  Y(IN)  .EQ.  Y(l))  GOTO  70 
JN-IN 

70  CONTINUE 

ALPHA  -  ATAN2(Y(JN)  -  YCl),  X(JN)  -  X(l)) 

CN  -  COSCALPHA) 

SN  -  SINCALPHA) 

SS  -  CN  *  SX  +  SN  *  SY 

SS2  -  CN  *  CN  *  SX2  +  2.  *  CN  *  SN  *  SXY  +  SN  *  SN  *  SY2 
SSTAU1  -  CN  *  SXTAU1  +  SN  *  SYTAU1 
SSTAU2  -  CN  *  SXTAU2  +  SN  *  SYTAU2 
D  -  AN  *  SS2  -  SS  *  SS 

ANfcWl  -  CN  *  CAN  *  SSTAU1  -  SS  *  SATAUl)  /  D 

ANEW2  -  CN  *  CAN  *  SSTAU2  -  SS  *  SATAU2)  /  D 

BNEW1  -  SN  *  CAN  *  SSTAU1  -  SS  *  SATAUl)  /  D 

BNEW2  -  SN  *  CAN  *  SSTAU2  -  SS  *  SATAU2)  /  D 

CNEW1  -  CSS2  *  SATAUl  -  SSTAU1  *  SS)  /  D 
CNEW2  -  CSS2  *  SATAU2  -  SSTAU2  *  SS)  /  D 
GOTO  80 

CALCULATE  COEFFICIENTS  FOR  BEST-FIT  LINEAR  SURFACE 

75  D  -  DETCSX2,  SXY,  SX,  SXY,  SY2,  SY,  SX,  SY,  AN) 

ANEW1  -  DETCSXTAUl,  SYTAU1,  SATAUl,  SXY,  SY2,  SY,  SX,  SY,  AN)  /  D 

ANEW2  -  DEICSXTAU2,  SYTAU2,  SATAU2,  SXY,  SY2,  SY,  SX,  SY,  AN)  /  D 

BNEW1  -  DETCSX2,  SXY,  SX,  SXTAU1,  SYTAU1,  SATAUl,  SX,  SY,  AN)  /  D 

BNEW2  -  DEKSX2,  SXY,  SX,  SXTAU2,  SYTAU2,  SATAU2,  SX,  SY,  AN)  /  D 

CNEW1  -  DEICSX7,  SXY,  SX,  SXY,  SY2,  SY,  SXTAU1,  SYTAU1,  SATAUD/D 

CNEW2  -  DEICSX2,  SXY,  SX,  SXY,  SY2,  SY,  SXTAU2,  SYTAU2,  SATAU2)/D 

80  CONTINUE 
ISTA  -  1 

IF  CT  .GT.  TNEW)  GOTO  10 

DETERMINE  PROPER  LOCATION  XS.YS  AND  CALCULATE  STRESS 
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Function  TAU 


C 

90  IF  (K  .EQ.  2)  GOTO  100 
XS  -  I  *  RPARMC3) 

YS  -  (FLOATtJ)  -  .5)  *  RPARM(3) 

TAUNEW  -  ANEW1  *  XS  +  BNEW1  *  YS  +  CNEW1 
TAUOLD  -  AOLD1  *  XS  +  BOLD1  *  YS  +  COLD1 
GOTO  110 

100  XS  -  (FLOAT(0  -  .5)  *  RPARMC3) 

YS  -  J  *  RPARM(3) 

TAUNEW  -  ANEW2  *  XS  +  BNEW2  *  YS  +  CNEW2 
TAUOLD  -  AOLD2  *  XS  +  BOLD2  *  YS  +  CX)LD2 


INTERPOLATE  IN  TIME 


110  TAU  -  (TAUNEW  -  TAUOLD)  /  (TNEW  -  TOLD)  *  (T  -  TOLD)  +  TAUOLD 
GOTO  180 

120  WRriE(M40)  TLAST,  T 
STOP 


130  FORMAT  (7G10.4.G6.0) 

140  FORMAT  (’  TIME  OF  FIRST  METEOROLOGICAL  DATA’,  G10.4, 

1  *  SECONDS  IS’,  ’  GREATER  THAN  T  -  \  G10.4, 

2  ’  -  PROGRAM  TERMINATED’) 

150  FORMAT  (4X,  F6.1,2F7.2,F6.1,F8.1,3F6.1,F6.2) 

175  FORMATC  THESE  DATA  POINTS  ARE  CO-LINEAR  OR  NEARLY  CO-LINEAR ) 
843  FORMATC///’  Meteorological  Station  Data  Used  in  Lake  Circulation’ 


$  ,’  Model’  „ 

$/6X,TLme  Lat.  Long.  Height  T-air  T-H20  Wmd/ 

J7X,  Tirs  deg  deg  ft  F  F  mph  deg/) 

180  RETURN 
END 
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Function  UZ 


FUNCTION  UZ(Z,UM,CD,ZO,FL) 


PURPOSE: 

TO  DETERMINE  WIND  SPEED  AT  HEIGHT  Z  GIVEN  WIND  SPEED  (UM) 
AND  DRAG  COEFFICIENT  (CD)  FROM  ANOTHER  HEIGHT  AND  THE 
ROUGHNESS  LENGTH  (ZO)  AND  STABILITY  LENGTH  (FL)  OF  THE 
PROFILE.  USUALLY  FUNCTION  UZ  IS  USED  AFTER  SUBROUTINE  UZL 
IN  ORDER  TO  FIND  WIND  SPEED  AT  A  DIFFERENT  HEIGHT  THAN 
THE  OBSERVATION  HEIGHT. 


ALGORITHM: 

THE  WIND  PROFILE  IS  ASSUMED  TO  CONFORM  TO  THE  BUSINGER- 
DYER  FORMULATION  USED  IN  SUBROUTINE  UZL. 


ARGUMENTS: 

Z  -  HEIGHT  AT  WHICH  WIND  SPEED  IS  REQUIRED  (MEIERS) 

UM  -  WIND  SPEED  AT  OBSERVATION  HEIGHT  (MEIERS  PER  SECOND) 
CD  -  DRAG  COEFFICIENT  CORRESPONDING  TO  OBSERVATION  HEIGHT 
ZO  -  ROUGHNESS  LENGTH  (METERS) 

FL  -  STABILITY  LENGTH  (MEIERS) 


HISTORY: 

WRITTEN  BY  D,J  SCHWAB,  1983,  GLERL,  ANN  ARBOR,  MI. 

SEE  SUBROUTINE  UZL  IN  SCHWAB,  BENNETT,  AND  JESSUP  (1981) 

*********************************************************************** 
IF(FL.GT.O.)  GOTO  10 

UNSTABLE  PROFILE 

X1-15./FL 

ARGi=(l.-Xl*Z)**0.25 

ARG2-(l.-Xl*Z0)**0.25 

B**AL0G((ARG1  - 1  .XARG2+1  .)/((ARGl+l.XARG2-l  .)))+ 

1  2.*(ATAN(ARGl)-ATAN(ARG2)) 

GOTO  30 

STABLE  SECTION 

10  IHFL.LE.Z)  GOTO  20 

MILDLY  STABLE  PROFILE 

B-ALOG(Z/ZO)+4.7*(Z-Zt  './FL 
GOTO  30 

STRONGLY  STABLE  PROFILE 

20  CONTINUE 
ARG1-FL/Z0 
X1-AL0G(ARG1) 
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X2-AL0G(Z/FL) 

ARG1-1.-1./ARG1 

B-X1+4.7*ARG1+5.7*X2 


Function  UZ 


CALCULATE  USTAR  AND  UZ 

30  CONTINUE 

USTAR-UM*SQRT(CD) 

UZ-USTAR*B/0.35 

RETURN 

END 
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Function  XDIST 


FUNCTION  XDISTCRLAT,  RLON) 

PURPOSE  :  TO  RETURN  X  DISTANCE  IN  MEIERS  FROM  THE  GRID  ORIGIN 

DESCRIBED  BY  TOE  COMMON  BLOCK  /  GPARM  /,  GIVEN 
LATITUDE  AND  LONGITUDE 

ARGUMENTS: 

RLAT  -  LATITUDE  OF  POINT 
RLON  -  LONGITUDE  (WEST)  OF  POINT 

RPARM,  IPARM  -  ARRAYS  CONTAINING  BATHYMETRIC  GRID 
PARAMETERS  AS  DESCRIBED  IN  SUBROUTINE  RGRED 

COMMON  BLOCK:  /GPARM/  RPARM(23)tIPARMC54),ZPARMC2) 


Last  Date  of  Revision  :  September  11,  1985 

*********************************************************************** 

COMMON  /GPARM/  RPARM(23),  IPARM(54),  ZPARM(2) 

PI  -  ATAN2(0.,-1.) 

ALPHA  -  RPARM(7)  *  PI  /  180. 

DLAT  -  RLAT  -  RPARMCl) 

DLON  -  RPARMC2)  -  RLON 

FIND  XPRIME,  YPRIME  -  DISTANCES  FROM  THE  ORIGIN  OF  THE  STANDARD 
BATHYMETRIC  GRID 

XP  -  RPARM(8)  *  DLON  +  RPARM(9)  *  DLAT  +  RPARMClO)  *  DLON  *  DLAT  + 
1  RPARM(11)  *  DLON  **  2 

YP  -  RPARM(12)  *  DLON  +  RPARMCl 3)  *  DLAT  +  RPARM(l4)  *  DLAT  * 

1  DLON  +  RPARMCl 5)  *  DLON  **  2 

TRANSFORM  TO  UNPRIMED’  SYSTEM 

FIRST  ROTATE 

XDIST  -  CXP*COSCALPHA)  +  YP*SINCALPHA))  *  1000. 

NOW  TRANSLATE 

XDIST  -  XDIST  +  ZPARM(l)  *  RPARMC3) 

RETURN 

END 
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Function  YDIST 


FUNCTION  YDIST(RIAT,  RLON) 

PURPOSE  :  TO  RETURN  Y  DISTANCE  IN  MEIERS  FROM  THE  GRID  ORIGIN 

DESCRIBED  BY  THE  COMMON  BLOCK  /  GPARM  /,  GIVEN 
LATITUDE  AND  LONGITUDE 

ARGUMENTS: 

RLAT  -  LATITUDE  OF  POINT 
RLON  -  LONGITUDE  (WEST)  OF  POINT 

RPARM,  IPARM  -  ARRAYS  CONTAINING  BATHYMETRIC  GRID 
PARAMETERS  AS  DESCRIBED  IN  SUBROUTINE  RGRID 

COMMON  BLOCK:  /GPARM/  RPARM(23),IPARM(54),ZPARM(2) 


Last  Date  of  Revision  :  September  11,  1985 


*********************************************************************** 

COMMON  /GPARM/  RPARM(23),  IPARM(54),  ZPARM(2) 

PI  -  ATAN2(0.,-1.) 

ALPHA  -  RPARM(7)  *  PI  /  180. 

DLAT  -  RLAT  -  RPARM(l) 

DLON  -  RPARMC2)  -  RLON 

FIND  XPRIME,  YPRIME  -  DISTANCES  FROM  THE  ORIGIN  OF  THE  STANDARD 
BATHYMETRIC  GRID 

XP  -  RPARM(8)  *  DLON  +  RPARM(9)  *  DLAT  +  RPARMClO)  *  DLON  *  DLAT 
1  RPARMCll)  *.DLON  *.*  2 

YP  -  RPARM(12)  *  DLON  +  RPARM(l3)  *  DLAT  +  RPARM(14)  *  DLAT  * 

1  DLON  +  RPARM(15)  *  DLON  **  2 

TRANSFORM  TO  ’UNPRIMED’  SYSTEM 

FIRST  ROTATE 

YDIST  -  (YP*COS(ALPHA)  -  XP*SIN(ALPHA))  *  1000. 

NOW  TRANSLATE 


YDIST  -  YDIST  +  ZPARM(2)  *  RPARM(3) 

RETURN 

END 


APPENDIX  III 


PROGRAM  PSISET.F 


Program  (PSISET.F),  used  to  calculate  stream  function  values 
(LAKEINIT. PSI) ,  is  given  in  this  appendix. 
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PSISET.F 


PBOGBAH  SLID 

DIBEBSIOB  D  (75,75)  ,  S(7S,7S),  BHS(7S,75),  SPD(75,75), 

C  0(75.75),  7(75,75) 

COBflOH  /GPA8B/  aPAflfl(23),  IPA3S  (54)  ,  ZPAR8{2) 

coaaos  /iTPAaa/  dstbax,  stain,  siaix,  pbac,  its 

C0880H  /A  PA 88/  BSTEPS,  13,  JO,  OS,  DIM,  OHIO,  1031,  J3B  1 
DATA  IDia,  JDIfl  /75, 75/ 

DATA  LOBS,  L0S8  /7,  3/ 

DATA  08,  PS  /7.29E-5,  2.E-3/ 

DATA  HIUI,  ITBAX,  COB?  /1. 6,  50,  1-  E-3/ 

PI  *  ATAH ( 1.)  •  4. 

OPEB  8ETEH0L0GICAL  DATA  PILE 

OPEB (LtJ 8B ,  PILE= ' lakebath. Jat  *  ,  STAIOS^'aLD*) 

CPEH  (LUBB,  PILE= ’lake wind. dat ' ,  SI ATUS=*  OLD*  ) 

BEWIHD  LUH8 

OPEB  Ala D  BEAD  OAT  1113  ETHIC  GBID  IBPOBBA HOB 

CALL  SGBI D(L JN B,  0,  1D23,  JDIM)^ 

BEAD  C03TB0L  PA2 A32TE3S 

BEAD  (LOB  B, 1 00)  DT,  TT,  BSD,  CLBL,  1LKQ,  BLKQ 

HSTKPS  =*  IT  /  DT 

DADD  ^  (CLBL-aSD)  /  3.281 

Z  =  Z  /  3.281 

ia  =  iPA2a(i) 

JS  =  IPlHa(2) 

DS  =  BPAHH  (  3) 

DBA  X  =  BP  ASS  (4  ) 

D8IB  =  HPAaa(5)  ♦  DADD 

CALL  PBST  (6  ,  D,  1013,  ZO,  J3,  0.) 

CALCULATE  COHIOLIS  PABAHETEH  AT  CEBTEB  OP  GRID 

F  =  2.  *  08  •  Sill  (SLAT  (IB*  DS/2.  , J8*DS/2.)  ♦PI/180.) 

3BITE (6, 1 10)  (IPAaa(I) ,1=5,54) ,  DT,  TI,  DADD,  BSTEES,  P 

inai  =  ia  -  i 

jaai  =  js  -  1 

iaa2  =  ia  -  2 

J  88  2  =  Ja  -  2 

DT  =  DT  *  3600. 

PDT24  =  P  *  DT  /  24. 

ADJUST  BZLAZATIOB  PACTOB  FOB  GBID  SIZE 

BEL  AX  *  BEL  AX  /  (1.  ♦  SIS (ACOS { 0.5* (COS ( PI/IH32)  ♦  COS (PI/ JBB2) ) ) 
1>> 

IBTEOPOL AT 2  DEPTH  TO  STHEA3  PUBCIIOS  POIHTS 
USX BG  SPEED  ASSAY  FOB  I EHPQEA SI  ST OB AGE 

DO  to  I  »  1,18 
DO  10  J  =  1,  J.1 
S PD  (I  ,  J )  =  0.0 
S(I,J)  =  0. 

IP  (0(1, J)  .LT.  BPAB8  (5)  )  GOTO  10 
D(I,J)  =  D  ( I ,  J)  ♦  DADD 
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10  MS£I#J)  -  0. 

X?  HATER  LEVEL  IHCRSaEHT  BESOLTS  IH  A  BEGAT IV E  DHIH,  STOP. 

17  (oax  H  .12.  0.0)  SO  TO  90 
00  20  t  *  1,  IH 
DO  20  J  »  1,  JH 

SPD(I,J)  «  0.999999  *  D8IH 

17  (I  .  EQ.  IH  .OS.  J  ,EQ.  JB)  GO  IO  20 

17  (D(I,J)  .LI.  DHIH)  SO  TO  20 

17  (D  (I  ♦  1,J)  .LI.  DHIH)  GO  TO  20 

17  (D(I,J  »  1)  .LT.  DHIH)  SO  TO  20 

17  (D(I  ♦  1,J  ♦  1)  .LT.  DHIH)  SO  TO  20 

S?D(I,J)  *  0.25  •  (D(I,J)  ♦  D  (I  ♦  1,J)  ♦  D  (I ,  J  *  1)  0(1  ♦  1. 

1  J  ♦  1)) 

20  COHTIHUE 

STORE  IHVERSE  DEPTH  HACK  IH  D 

DHIH I  =  1.  /  DHIH 
DO  30  I  =  1,1a 
00  30  J  3  1,  JB 

D  (I  ,  J)  =1.  /  SPD(I,J) 

30  SPD(I.J)  -=0.0 

SET  IHITXAL  CQHDITIOHS 

CALL  IH  XT (D,  S,  IDIH,  ILKfi,  RLKQ) 

HAIH  ITEBATIOH  LOOP 

TIHE=0. 

DO  80  H  =  1,  HSIEPS 
TI5 S  =  TIHB*DT/2. 

CALCDUTE  COHHENT  SPEED  AT  CEHTEH  07  GBID  BOX  I,  J 

DO  40  I  =  2,  IBB  1 
DO  40  J  *  2,  JH31 

I7(D(I,J)  -GT.  DHIHI  . AHD.  D(I-1,J)  .GT.  DHISI  . AHD. 

1  D  {I ,  J- 1 )  .GT.  DHIHI  .AHD.  D(I-I.J-I)  .GT.  DHIHI)  GOTO  40 

DO  =  0.5  *  (D(I.J)  ♦  D  (X  ,  J  -  1)) 

DT  =  0.5  *  (D(I,J)  ♦  D  (I  -  1,J)) 

DOH  =  0.5  *  (D(I  -  1,J)  ♦  D(I  -  1,J  -  1)) 

DVH  ■=  0.5  *  (D(I,J  -  1)  ♦  D (I  -  1,J  -  1)) 

SPD(I,J)  =  (0.5/DS)  *  SQaT(((((S(I,J)  -  S(I,J-  1)).*D0)  ♦  (( 

1  S(I  -  1,J)  -  S  (I  -  1,J  -  1))«DUH))**2  ♦  (US  (I,  J)  -  S(I  -  1, 

2  J) )  *DV)  *  ((S(I,J  -  1)  -  S(I  -  1,4  -  1)  )  *DVH)  ).**2) ) 

40  COHTIHOB 

ITEBATE  TO  CALCOLATE  ST22AB  7 UHC7I0B  AT  BEAT  TIHE  STEP  HUH  ALTER— 
HATIHG  SHEEP  DIBECTIOHS 

DO  60  K  3  1 ,  ITHAZ 
KK-K*  H 
DSTHAI  =  0. 

siais  =  o. 
sin ax  =  o. 

ITS  =  X 

DO  50  II  =  1,  IH 
I  =  II 
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IF  (BOD  {KK ,  2)  .  EQ.  0)  I  =  IB  -  II  ♦  1 
DO  50  JJ  *  1,  Jfl 
J  »  JJ 

If  (BOD  (KX,  2)  .EQ.  0)  J  =  JB  -  JJ  ♦  1 
IF  (D(I.J)  .  GT.  DHXHI)  GO  TO  50 
DOP  *  0.5  *  (D(X,J  ♦  1)  *  D  (I , J)  ) 

D VP  *  0.5  *  (D(I  ♦  1,J)  ♦  D(I,JJ.) 

SPOOP  -  0.5  *  (S?D  (I  *  1,J  ♦  1)  ♦  SPD(I,J  ♦  1)) 

SPDVP  *  0.5  »  (SPD  (I  ♦  1,J  ♦  1}  ♦  SPD(  I  ♦  1,J)) 

DO  »  0.5  *  (D (X ,  J)  D  {X  ,  J  -  1)) 

DV  *  0.5  *  (D  (X,J)  ♦  D(I  -  1,J)) 

SP DO  *  0.5  •  (SPD (I  ♦  1,J)  ♦  SPD (I, JJ  J 
SPD?  *  0.5  «  (SPD  (I,  J  ♦  1)  ♦  SPD  (I,  J)  J 
DCSHT  *  D VP  ♦  DV  ♦  DO?  ♦  DO 
C 

C  LAPLACI AH  TEES 
C 

TEflBI  -*  DVP  *  S (X  ♦  1,J)  ♦  DV  *  S  (I  -  1  ,  J)  ♦  DOP  •  S(Z,J  * 
1  1)  «•  DU  *  S(I,J  -  1)  -  DCEHT  *  S(X,J) 

C 

C  ABAKABA'S  JACOBI  A  H 
C 

TEHB2  =  S( I  ♦  1,J)  *  (D(X,J  ♦  1)  ♦  D(I  ♦  1,J  ♦  1)  -  D  (I,J 

1  -  1)  -  D (X  ♦  1,J  -  1))  *  SIX  -  1,J)  *  (— D ( I, J  ♦  1)  -  D (X  - 

2  1,J  ♦  1)  ♦  D  (I,  J  -  1)  ♦  D(X  -  1,J  -  1)).  ♦  S(I,J  «■  1)  •  (- 

3  D  (I  ♦  1.J)  -  0(1  ♦  1,J  ♦  1)  ♦  0  (X  -  1.J)  *  D(I  -  1,4  ♦  l)) 

4  AS(X,J  -  1)  *  (D(I  ♦  1,J)  ♦  D  (X  ♦  1,J  -  1)  -  D  |X  -  1,J)  - 

5  D  (I  -  1  ,J  -  1)  )  ♦  S  (X  ♦  1,  J  ♦  11  •  (-0(1  ♦  1,J)  •  0(1. J  ♦ 

6  1))  *  S(I  ♦  1,J  -  1)  *  (D(I  ♦  1,J)  -  0  (X,  J  -  I)J  ♦  S( I  - 

7  1,J  ♦  1)  *  (D  (X  -  1,J)  -  D (X, J  ♦  1))  *  S(X  -  I,J  -  1)  *  (- 

8  D (X  -  1,J)  ♦  D  (1,4  -  1)) 

C 

c  FHicrioa  Tzaa 

c  * 

TIP  *  -DVP  *  LSI  I  ♦  1,J)  -  S(X,JJ)  •  Fa  *  SPDVP 
TIB  *  -0V  •  (S(X, J)  -  si  1  -  1,J>)  *  FB  •  SPDV 
TIP  =  DUP  ♦  (S(I,J  ♦  1)  -  S(I,J))  •  FB  •  SPDOP 
7  XB  *  DO  ♦  (S(I,J)  -  3  (I,  J  -  1))  *  FS  «  SP  DU 
1 EHB3  =  (DVP*7IP  -  DV*rra  -  DOP*!!?  ♦  D0*TXJI) 

c 

C  SET  BIGHT  HAND  SIDE  THE  FIBST  TXBE  XHBOOGH 
C 

IF  (K  -EJ.  1)  BHS  (X ,  J)  -  TEBB1  -  FDT24  *  TEB42  ♦  DT  »  0.5 

1  *  TEB83  ♦  DT  *  DS  *  (DVP*TAO  (TIBE.X  ♦  1,J,2J  -  DV*7A0( 

2  7 XBE,X ,J ,2)  -  DDP*7A0  (TIBS, I, J  ♦  1,1)  *  DO *7 AO (7XH£,I, J, 1) 

3  ) 

IF  (K  .SO-  1)  CO  TO  50 
C 

C  CALCULATE  HE a  STHEAS  FOHCTIOH 
C 

D4  =  DCEHT  ♦  FB  *  0.5  ♦  DT  *  (D VP**2 *3?DVP  *  DV**2*SPDV  ♦ 

1  D 0P**2 *5? DUP  DU**2*S PDO) 

DST  *  (TEB31  FDT24*TEBfl  2  -  0.5*DT*TEBB3  -  BHS(X,J>)  /  C4 
S(I,J)  »  S(I,J)  ♦  BEL  AX  *  DST 
DSTBAX  *  ABAX1  (DSXBAX.ABS  (DST)  J 
STBXH  =  ABXG1 (3TBXH,S(X,J)) 

STJJAX  =  A  HA  XI  (STBAX,S(X,J)) 

50  COHTXHOE 

C 

C  CALCULATE  BEL1TXVE  CHAHG2  1'J  STBEAH  FOHCTIOH  FOB  ALL  IZEBATXOHS  BOX 
C  THE  FX3ST 
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c 

I P  (K  .23-  1)  GO  20  60 
IP  {STBAX  .2J.  ST8IS)  GO  TO  70 
PRAC  ■  032 SAX  /  (STHAX  -  ST8IH) 

IP  (PS AC  .LE.  COS?)  GO  10  70 
60  COST!  SUE 
70  COSTXIOE 
C 

C  UPDATE  TIBS 
C 

TISE***DT 

C 

C  CALL  OUTPUT  HO OTIS E 
C 

CALL  OOTP(TiaE,  D,  S,  SPD,  IDIB) 

C 

C  CHECK  FOB  STEADY  STATE 
C 

CALL  CQMPAiE (T XH  2,  D.  S,  SPD,  IDIH,  0,  ?) 

C 

C  BHD  H  AIM  ITZH ATIOH  LOOP 
C 

80  COHTIHUS 
GO  TO  130 

90  HBITE(6, 7  20)  DADD 
GO  TO  130 

100  PQRSAT  (4G8.2.  2G3.0) 

C  110  rOBBAt  I'lHIGID  LID  CIHCDLATICH  HODEL  POH  », 

C  1  SOA 1/'  TI3E  STEP  (R) :  DT=  »,  P10-2/ 

C  1  •  DUHAIIOH  OP  BDH(H):  TI=  »,  f7. 2/ 

C  2  •  SEAS  MACES  LEVEL  (B)  (RELATIVE  TO  L-H.D-):  DADD=  • 

C  3  '  HUS3EH  OP  TIHE  STEPS:  HSTEPS=* ,  16/ 

C  4  •  COBIO  LIS  PABAMS223  IS**- 1)  s  P=  •,  E13.3) 

120  PoaSAT  (•  TBE’aA^ES  LEVEL  IHC HEflEHT’ ,  P8.2,  •  8ESDLIS  18  A 
1  *  HEGATIVE  HI HD BUB  DEPTH  -  PE0G3AB  CES3XHAISD' ) 

130  COHTU'OE 
STOP 
END 
C 

SDB300TIH  E  BGH ID  (LOH ,  D,  ZDIB,  JDIB) 

DI3ENSI0H  D  (IDIH, JDIB) 

COflBOH  /GPA3B/  BP ABa ( 23)  ,  ZPAB3  (S4) ,  Z?AH8(2) 

c 

c  BEHIND  BATHYasTBI  PILE 
C 

BEHIND  LUS 

BEAD  (LUS.30)  (IP ABB  (I)  ,1*5,54)  ,  IPAB3(1).  IPAfia(2), 
1(B?ASa(I)  ,1-1,6)  ,  ZPASa(l),  ZPABai2),  BPA3B(7) 

BEAD  (LUS ,6 3)  (BP ABE  (I) ,1-3, 23) 

IB  =  IPABa(l) 

jh  =  iPAaa(2) 

BPAaa(3)  a  BP ABfl  (3)  /  3.281 
BPAsa(4)  a  BPAHH  (4  )  /  3.  23  1 
BP  AB3  (5)  a  BP  ABa  (  5)  /  3.281 

I?  (IPABB(I)  .GT.-  IDIB  .08.  IPAHB(2)  .GT.  JDIB)  GO  10  10 
BEAD  (LOH,  40)  ((D(I,J)  ,1=1,18)  ,J-1,JB) 

DO  80  1*1  ,13 
DO  80  J=  1, ja 

D(I,J)  =  D  (I,J)  /  3.281 
80  CONTINUE 
BEIOBN 
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10  DO  20  I  *  1,  5fl 
20  IPABH(Z)  *  0 
WHITE ( 6,  50) 

30  70BHAT  (50(A1)/2I5,  2712.7,  375.0,  76.2,  3P7.3) 

40  TO B BAT  (1974.0,  4Z) 

50  70BHAT  (»  BATHY3ETHIC  GBID  TOO  LABGB  -  INCH  EASE  Dl&ZiSlQMS  0 ?*. 

1  •  H  DEPTH  ABO  DEPTH  ZB  HA  IN  PBQG  BAB') 

60  TOBBAT  (4Z15.6,  20 X) 

70  BETOBB 
EBD 

SUBBOOTIBE  PBH?  (LUN,  A,  XOIS,  ZBAZ,  JBAX,  SPVALJ 
DIHENS I0B  IHTEG ( 30)  ,  A(1DXH,1) 

ICOL  *  19 

AHAXSBA XIS0B  ADSOLOTE  7 ALOE  07  ABB AT  A 

ABAZ  -=0.0 
DO  10  I  *  1,  IB  A I 
DO  10  J  »  1,  JBAX 

27  (A (I, J)  .EQ.  SPVAL)  GO  TO  10 
A3AX  =*  ABAX1  (AHAX .ASS (A (I, J) } ) 

10  COHTIHOS 

■OB  7IHD  THE  POHEB  07  TEB  ST  M3ICH  BE  BUST  BDLZ1PLZ  ABAX 
SO  THAT  ZT  PALLS  BETWEEN  100  ABO  1000. 

IHITIALLI  THE  POBEB  IS  ZEBO 

HP  -  0 

Z7  (AH AX  . EQ.  0)  GO  TO  20 
TAKE  BASE  10  LOGABXTHH  07  AHAX 
AP  *  ALOG 10  (AHAX) 

17  AHAX  IS  GBEATE2  THAB  1000,  HP  IS  NEGATIVE 

17  (AP  .GT.  3.)  HP  =  -ZPIX(AP  -  2.) 

17  AHAX  IS  LESS  THAB  100,  H?  IS  POSITIVE 

IP  (AP  .LT.  2.)  HP  *  IP XX (3.  -  A?) 

20  COBTIB03 

PBXNT  THE  GBZO 

II  *  1 

II  *  (XHA X  -  1)  /  HCOL  ♦  1 

IBHDB  =  I BAX  -  NCOL  •  (II  -  1) 

DO  50  L  *  1,  II 

W  HEN  L=II  OBL7  PBXNT  XBflDB  VALUES 

17  (L  .  EQ.  II)  NCOL  =  IBHDB 

PBINT  THE  PQWEB 

B  BITE  (L  ON ,  60)  HP 
12  =  II  ♦  NCOL  -  1 
DO  40  JJ  *  1,  J3AX 
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J  3  J3AX  -  JJ  ♦  1 
DO  30  I  *  II,  12 
13  *  1  ♦  I  -  II 
IST2G(I3)  3  -9999 

IF  (A  (I,  J)  .  HE.  SPT1L)  INTSG(I3)  *  IHT  (1  (I,  J)  •  10.** BP  ♦ 
t  SIGH (0.5,A(I,J) *1 0.**  BP) ) 

30  COHTINOE 

ifniTE  (LOH ,70)  (INTEG(I)  ,I=1,NCOL) 

40  CONTINUE 

II  *  12  ♦  1 
50  CONTINUE 

60  FOBS AT  {*0  7AL0ES  MULTIPLIED  BI  10*»‘,  13) 

70  FOHBAI  (•  •,  3014) 

BET0RH 

BHD 

suBBoanas  uzl(ub,  zb,  id,  zth,  cd,  ca,  zo,  fu 

DATA  Cl.  C2,  C3  /.684E-4,  4.28E-3,  -4.43E-4/ 

DATA  BI,  B2,  B3  /1.7939E-3.  4. 865E-4,  3.9Q28E-5/ 

EPS  =  .01 

IF  (OB  .L7.  .001)  OB  =  .001 
FK  *  .35 

XBAB  *  278.  ' 

ALPHA  =4.7 
BETA  3  .74 
GABB  3  15. 

GAMT  3  9. 

UST1  3  0.04  *  OH 
B  3  ZB 
DTHETA  *  TD 

IF  (ABS  (DTHETA)  .LT.  1.  E-7)  DTHETA3  SIGN( 1.B-7, DIHEIA) 

INITIAL  G0E3S  FOB  ZO 

ZO  =  .004  5  9  *  0ST1  •  0511 
S  -  OH  *  OB  *  TBAR  /  (9.3*DIHETA) 

IF  (AB5  (S)  .GT.  1.E6)  S  3  SIG N ( 1. £6. S) 

Z  »  ALOG(H/Z0) 

INITIAL  G0ES5  FOB  L 

FL  =  S  /  X 
DO  60  I  IE  R  3  1,  20 
X  3  ALOG (H/Z 0) 

IF  £A3S (FL)  .GT.  3. E6)  FL  *  SIGH (3. B6, FL) 

IF  (FL  .GT.  0.)  GO  TO  20 

UNSTABLE  SECTION  (L  LT  0  OB  DT  LT  0) 

FLI  3  1.  /  FL 

ASSOBE  5  ITERATIONS  SUFFICIENT 

DO  10  I  =  1,  5 
XI  =  G AST  *  FLI 
ABG1  3  SQ3T  (  1.  -  I1*H) 

ABG2  3  SOiT  £1.  -  X1*Z0) 

A  3  BETA  •  ALQG(  (ARG1  -  1.)*(AJ2G2  ♦  1.)/££ABG1  ♦  1.)*£ABG2 

1  1-))) 

X 1  3  G ABM  *  FLI 

AHG1  3  (1.  -  X  1*H)  **  (-25) 
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ABG2  “  (1.  -  X1*ZQ)  •*  (.  25* 

S  *  ALQG((ARG1  -  1.)  *  (ARG2  ♦  t.)/((ARG1  *  J.)*(ARG2  -  1.)))  ♦ 
1  2.  *  (  A7AN ( ARG1)  -  A7AN  (ABG2)) 

FL  «  S  •  A  /  (B*B) 

IF  (ABS(FL)  .GZ.  3.  E6)  PL  =*  SIGN  (3. E6, FL) 

PLI  »  1.  /  PL 
10  CONTINUE 
GO  TO  SO 
C 

C  STABLE  SECTION 
C 

C  THT  aiLDtr  STABLE - 
C 

20  CONTI  NOE 

AA  *  X  •  X 

xi  »  a  -  zo 

BB  *  9.  4*11  *  X  -  .74  *  S  *  X 

CC  *  4.7  «  XI 

CC  ^  CC  •  CC  -  CC  *  S 

BOOT  =  BB  •  BB  -  4.  *  AA  •  CC 

IF  (BOOT  -LT.  0.)  GO  TO  30 

FL  =  {-BB  ♦  SQB7  (BOOT)  )  /  (2.  *  A  A) 

IF  (FL  .LE.  H)  GO  TO  30 
B  »  X  ♦  4.7  *  XI  /  FL 
A  *  BETA  *  X  ♦  4-7  *  II  /  FL 
GO  TO  SO 
C 

C  STHONGLT  STABLE- 
C 

30  CONTINUE 

IF  (FL  -L2-  20)  FL  *  20  ♦  1.E-5 
DO  40  I  =1,  5 
ABG1  *  FL  /  ZO 
XI  *  ALOG(ARGI) 

X 2  *  ALOG( H/FL) 

ABG1  *  1.  -  1.  /  ABG1 

A  *  .74  *  XI  ♦  4.7  *  ABG1  ♦  5.44  *  X2 
B  «  XI  ♦  4.7  •  ABG1  ♦  5.7  *  X2 
FL  -  A  *  S  /  (B*B ) 

IF  (FL  .LE.  ZO)  FL  =*  ZO  ♦  1.E-5 
IF  (FL  .GT.  H)  FL  *  H 
40  CONTINUE 
C 

C  CALCULATE  USTAB  AND  ZONEU 
C 

50  CONTINUE 

TSTAB  *  PE  •  DTHETA  /  A 

USTAR  =  FK  *  Ufl  /  B 

ZONES  =  .00459  •  USTAB  *  USTAB 

IF  (I7E2  .GT.  5  .AND.  ABS  (  (USTAB  -  0ST1J/U  3X1)  .LT.  EPS) 

1  GO  TO  80 

0ST1  -  USTAB 
ZO  a  ZONES 
60  CONTINUE 
C 

C  zr  COSE  HEBE,  TOO  BAST  ITERATIONS  (UGH  -  UGH) 

C 

BBITE  (6  ,7  0) 

70  FOBHAT  {•  OTOO  NANI  ITERATIONS  ON  ZO  IN  SUBROUTINE  DZl  -  CHECA  *, 

1  •  3EXEOBOLOGICAL  DATA  -  PROGRAM  TERMINATED*) 

STOP 
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80  COMIX 80S 
Z0  *  ZOHEU 

CD  *  (USTAB/DH)  *»  2 
CH  =  FK  *  PK  /  (A *3) 

90  BEIUBN 
EH  D 

FUBCTIOB  UZ(Z,0H,CD,Z0,PL) 

IP  (FL.GT.0.  )  GO  20  10 

OH STABLE  PBOFXLfi 

11=15. /PL 

ABG1=(1.-X1*2)  **0.25 
ABG2=(1.-XI*ZQ)**0.25 

B= ALOG(  (ABGl-1.)  *(AHG2*1.)/((ABG1*1.)  *  (ABG2-1.) ) )  * 

1  2.*  {AT AH  (ABG1)-ATAM(A3G2)  ) 

GO  TO  30 

STABLE  SECTION 

10  IP  (FL  -L  E-Z)  GO  IQ  20 

HILDLI  STABLE  PSOFZLB 

B=ALOG{Z/ZO)  ♦4.7*{Z-Z0)/PL 
GO  TO  30 

STBOSGLI  STABLE  PB OTILZ 

20  CONTINUE 
A8G1=PL/Z0 
X1=AI0G{ABG1) 

X2=ALOG(Z/FL) 

AHG1 =1 1 ./AHG1 

B=  X  1  ♦  4. 7*ABG1+ 5. 7*X  2 

CALCULATE  OSZAB  ABO  OZ 

30  COHTIBUE 

USIA8=Ua*  SQBT (CD) 

UZ=USTAB*B/0. J5 

BETUBB 

END 

POBCTIOH  TA3(T,  I,  J,  X) 

DlflEMSIOH  X  (25)  ,  U(2),  1(25),  ATlUt25,2) 

LOGICAL  XS Q,  TEO 

COHBON  /GPABB/  apABfl{23),  IPA8fl(54),  ZP  ABB  (2) 

.  DATA  BH04H,  ISTA  /I.  25E-3,  0/ 

DATA  L’JS  /8/ 

DATA  AOLD1,  BOLD  1 ,  COLD1,  AOLD2 ,  BOLD2  ,  COLD2 ,  TOLD  /7*0./ 
STATEMENT  PUUCTION  TO  CALCULATE  DEIEBBIBABI  OP  3  31  3  B  AT  BIX 

DBT  (All,  A21,  A3 1,  A12,  A22,  A32,  A13,  A23,  A33).  * 

1  All  *  A 22  •  A33  -  All  «  A23  *  A32  ♦ 

2  A12  *  A 23  *  A 3 1  -  A12  *  A21  *  A33  ♦ 

3  A 1 3  *  A21  *  A32  -  A13  *  422  *  A31 

IP  THIS  IS  THE  PIBST  IIBE  TaBOUGII,  BEAD  A  BECOBD 
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c 

IF  (1 511  -EQ.  0}  CO  TO  30 
C 

C  CHECK  ir  BECESSABI  TO  BEAD  ABCTHEB  BE COB  0 
C 

IF  (?  .LT.  THEM  .OB.  TUBS  . LT-  0.)  CO  TO  90 
10  AOLD1  *  ABEH 1 
SOLDI  >  BHEH1 
COLD1  *  CBEB1 
AOLD2  »  A ME 32 
BOLD2  «  SHEH2 
C0LD2  »  CBEH2 
TOLD  *  TB  EH 
20  TIES  »  TLAST 

IF  (TIES  .LT.  0)  CO  TO  90 
C 

C  PHD  AT  AO,  IDE  BHD  STRESS  FOB  THE  COHBEHT  SIAIIOM 
C 

TD  *  TA  -  T8 

X(ISTA)  »  IOX3T  (SLAT, BLOB) 

I  ( 1ST  A)  -  TDIST  (BLAT ,8LCH) 

0(1)  *  SS  *  COS  (  (270.  -  HD  -  BPABJ(6)  -  BPAHH  ( 7) )  *  ATAB  {  1. )  /4S. ) 
0(2)  *  SS  *  SIM ( (270.  -  HD  -  HPABB (6)  -  SPAB3 (7) ) *AIAB ( 1. ) /4S- ) 
CALL  0ZL( HS ,  Z,  ID,  Z,  CD,  CH,  ZO,  FL) 

CDD  =  CD  *  1.Z3 
TTLAST  »  TLAST  /  3600. 

C  IF  (XSTA  .LB.  1)  HBITE{6, 160) 

IKS  *  XJISTA)  /  1000. 

IKS  »  r(ISTA)  /  1000. 

C  SHITE  (6,1  SO)  TTLAST,  BLAT,  BLOB,  Z,  TA,  TV,  HS,  HD,  CDD, 

C  1  IKH,  IKH 

ATAtJ  (ISTA ,  1 )  *  CD  *  BHOAH  *0(1)  *  HS 
AT  AD  (ISTA,  2)  *  CD  *  80OAS  *  D  (2)  •  HS 
30  BEAD  (LOB, 130)  TLAST,  SLAT,  BLOB,  Z,  TA,  TH,  HS,  HD 
Z  *  Z  /  3.281 
TA  «  5./9. • (TA  -  32.) 

TH  *  5-/9.* (TH  -  32.) 

HS  *  HS  /  3.281 
TLAST  *  TLAST  •  3600. 

IF  (T  .LT.  TLAST  .AHD.  ISTA  .EQ.  0)  CO  10  120 
ISTA  =  ISTA  ♦  1 
C 

C  IF  FIBSI  TIBE  THBOOGH,  FIBD  ATAO 
C 

IF  (ISTA  .EQ.  1)  SO  TO  20 
C 

C  CHECK  IF  LAST  BECOBO  AT  IIBE  TLAST  HAS  EEEii  BEAD 
C 

IF  (TLAST  .EQ.  THEW)  GO  TO  20 
C 

C  BOH  FIBD  THE  BEST-FIT  LIHEAH  SUBFACE 
C 

SI  *  0.  x 

SI  -  0. 

SXI  a  0. 

SX2  a  0. 

SY2  *  0. 

SXTAU1  =  0. 

SIT AO 1  «  0. 

SATAO  1  a  0. 

3XTAU2  *  0. 
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SYTAU2  »  0. 

SIT  A  32  »  0. 
a  -  1ST  A  -  1 
AS  =*  FLOAT  (N) 

XZQ  =  .  TH  02. 

IZQ  »  .  THUE. 

DO  40  IS  =  1,  a 
SX  *  3X  *■  X  (IB) 

SI  *  SI  »  I(IN) 

sxt  »  sxt  ♦  i(ia)  •  i  (ia) 

SX2  *  5X2  ♦  X(IH)  *•  2 

512  *  ST2  ♦  I  (IS)  ••  2 

SXT  A0 1  *  SXTA01  ♦  X(IH)  «  ATA0(I«,I) 

STTA01  *  SITA01  ♦  X  (IB)  *  17AU(IN,  1) 

5 XT AO 2  »  SXTA02  »  X(IN)  •  1X10(18,2) 

STTA32  =  STTAU2  ♦  1(18)  *  1210(18,2) 

S  AT  10  1  =  SATA  3 1  ♦  ATA0(IH,1) 

SATA02  =  SIT  A  02  ♦  1TA0(I8,2) 

IF  (X  (1 8}  .HE.  1(1))  XZQ  =  .FALSE. 

IP  (T  (1 8)  .SZ.  X(1))  IZQ  =  .FALSE. 

40  CONTINUE 


CALCULATE  CO  EFPICXZNTS  ANEW,  BNE8,  C8E8 ,  8HEBE 

TAO  a  AHZU  *  X  ♦  BN  EH  *  I  *  CNES 
,  FOB  EACH  COBPOHE8I. 

18Z81  *  0. 

A8E82  *  0. 

BH2W1  »  0. 

BHE82  =  0. 

CHEV 1  *  SAT101  /  AH 

CHZB2  =  5 ATA02  /  18 

CHECK  FOB  QBE  01X1  POINT  ONLY 

IF  (XEQ  .AND.  IZQ)  GO  TO  80 

CHECK  IF  Dill  POINTS  ABE  CO-LINEAH 

IF (N  .ZQ.  2)  GO  TO  60 
DO  50  IN  =  3,  N 

1  =  SQBT  (  (X  (1  )  -  X  (IN)  )  **2  ♦  (1(1)  -  I(IN)  ).**2) 

B  =  SQRT  (  (X  (  1)  -  X  (IN-  1)  )  **2  *  (1(1)  -  I(I8-li)**2) 

C  =«  SQB T  ( (X  (IN)  -  X  (IN-1)  )  **2  ♦  (X  (18).  -  1(18-1)  )**2) 

S  =  (1  ♦  3  ♦  C)  /  2. 

D  =  SQB T(S  *  (S  -  A)  *  (S  -  3)  *  (S  -  C))  /  131X1(1,  B,  C,  1. 

IF  807  CO-LINZia,  GO  TO  75 

IF  (D  .GT.  100.)  GO  TO  75 
50  CONTINUE 

CALCULATE  COEFFICIENTS  FOB  CO-LI  'JEAB  DATA  POINTS 

60  83 ITE  (6,  175) 

60  CONTINUE 

DO  70  IN- 2, 3 

IF  (X  (I  N)  .EQ.  X(l)  .AND.  Y  (IN)  .  EQ.  1(1))  GO  TO  70 
JN  =  IN 

70  CONTINUE 

ALPHA  *  A  TAN  2  ( Y  (JN)  -  1(1),  X  (JN)  -  X(1)) 
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CM  »  COS(  ALPHA) 

SB  -  SIB  (ALPS! ) 

S3  *  Cl  *  SI  *  SH  *  SI 

SS 2  -  CM  *  CS  *  SX2  ♦  2-  *  CS  *  SB  *  SXI  *  SB  *  SB  *  SI2 

sstaoi  «  cs  *  sxnoi  ♦  sb  *  sttaoi 

SSTA02  »  CS  «  SXTA02  *  SS  *  SXTIU2 
D  *  AB  •  SS2  -  SS  *  S3 

ABEH1  ■  CB  *  (AS  *  SS7AU1  -  SS  *  S1IA01)  /  0 

ABEtf 2  *  CB  *  (AS  *  SSTAU2  -  SS  *  SAXAU2)  /  D 

BHE81  *  SB  •  (AB  •  SSTAU1  -  SS  *  SATAU1).  /  O 

BBE8  2  =  SB  *  (AB  •  S3TAU2  -  SS  *  SATA  02)  /  0 

CSEB1  -  (SS2  •  SATAU1  -  SSTAU  1  •  SS)  /  D 
CBE82  =  (SS2  *  SATAU2  -  SSIA02  *  SS)  /  D 
GO  TO  30 


CALCULATE  COEFFICIENTS  FOB  3EST-FIT  LINEAR  SUBFACE 


75  D  *  DET 

(SX2,  sxr 

,  SI, 

SXI, 

SI 2,  SI, 

SX,  SI,  AB) 

ABE8  1 

3 

DET ( SITAU 1,  SITA01 

,  SAXAU1, 

SIT,  SI2,  SI, 

SI. 

SI, 

AB) 

/ 

D 

ABEW2 

at 

DET  (SXTAU2  ,  SITAU2 

,  SA7AU2, 

SXI,  SI2,  SI, 

SX. 

SI. 

AB) 

/ 

a 

BN  ES  1 

s 

DET (SX2, 

SXT, 

SI. 

SXTAU1,  SITAU1 ,  SATA 01 , 

SI. 

SI, 

AB) 

/ 

D 

BBE82 

3 

DET  (SX2, 

SXI, 

SI. 

SZTA02,  SI 

TAU2,  SATAJ2, 

SI, 

ST, 

Ah) 

/ 

D 

CHEW  1 

= 

DET (SX2, 

SZI, 

SI. 

SXI,  SI2 , 

SI,  SXTA01,  SITAU1 

,  SAT  All  1)  /  D 

CBE82 

3 

DET  (SX2  , 

SXI, 

SI. 

SI I,  SI2, 

SI,  SX7AU2,  SI 

I AU2 

,  SATA 02)  /D 

80  COHTXHUE 
ISIA  *  1 

IF  (T  .  GT.  TB  ES)  GO  TCI  TO 
HRITE  (6,170) 

DETERHIBE  PROPER  LOCATIOH  IS, IS  ABO  CALCULATE  STB 2SS 

90  IF  (S  -EQ-  2)  GO  TO  100 
XS  =  I  *  BPABS  ( 3) 

IS  =  (FLOAT  (J)  -  .SJ  *  RPARB  (3) 

TAUBZB  *  ANE31  *  XS  t  BREST  1  *  IS  *  CBE81 

TAUOLD  =  AOLOI  •  IS  *■  BOLD1  •  IS  ♦  COL0 1 

GO  TO  110 

100  XS  =■  (FLOAT  (I)  -  -5)  •  BPABS (3) 

IS  =  J  *  BPABS  (3) 

TAUHEH  =  ANE82  *  XS  ♦  BBSS 2  *  IS  ♦  CBEB2 

TAUOLO  =  A0LD2  *  IS  *  3JLD 2  *  IS  *  COI.D2 

IBTEBPOL ATE  IB  TIBE 

110  TAU  =  (TA08ES  -  TAUOLO)  /  (THER  -  TOLD)  *  (T  -  TOLD).  ♦  TAUOLO 
GO  TO  180 

120  8  BITE  (6,  1 90)  TLAST,  T 
STOP 

130  FOBSAT  (8G10. 9) 

140  FOBSAT  (•  TIBE  OF  FIH5I  SET  ECHO  LOGICAL  DATA',  G10.4, 

1  •  SECONDS  IS',  •  GHEATEB  IHA B  I  *  *,  G10.4, 

2  •  -  PBOG HAS  TEBSIHAIED*) 

150  FOBSAT  (•  •,  F5.1,  •  •  •,  F10.7,  •  •  •,  F10.7,  •  *  »,  F4.  1,  •  *  ', 

1  F5.2,  •  *  •,  F5.2,  '  •  ',  F6.2,  •  •  »,  F<i.O,  •  *  *,  F5- 2, 

2  •  *  • .FS.O,*  *  * ,F5. 0 ) 

160  FOBSAT  (•  ',  95(*  *•) / 

1  '  TISE  *  LATITUDE  •  LOBGITUOE  *  I  *  I-AIfl  *  *, 

2  'T-H20  *  3-SPD  •  8-DIB  *  CDE3  •  X  *  !•/*  *#  95(*»*.)) 

170  FOB  HA  I  (•  ',95  (•*')  ) 

175  FOBSAT (*  THESE  DATA  POINTS  ABE  CO— LINEAH  OB  BEABLI  CC-LIBEAfi') 

180  BEIUBN 
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END 

C 

puhctioh  xdist(blat,  bloh) 

COaflQ*  /GPABB/  BPABS(23),  IPABB{54),  ZPABB(2) 
pi  *  1TAH 2(0..- 1.) 

ALPHA  =  BPABB  (7 )  •  PI  /  180. 

OLAT  *  BLAT  -  BPABB ( 1) 

SLOB  *  BP  ABB  (2 )  -  BLOB 
C 

C  PHD  XPBI BE,  TPBI  BE  -  DISTAHCES  FBOB  1  BE  OBIGIH  OP  THE  SIAMDABD 
C  BAT HI  a ETHIC  G3ID 
C 

XP  =*  BPABB  (8)  •  DLOB  *  BPABB  ( 9)  •  DLAT  ♦  BPIBB(IO)  *  DLOM  *  DLAX  ♦ 

1  BPABB(II)  •  DLOB  »•  2 

IP  =  BP  A2  3(  1 2)  *  DLOB  ♦  BPABB  (13)  •  DLAT  ♦  BPAHB(14),  •  DLAT  * 

1  DLOB  ♦  BP  AB  B ( IS)  •  DLC3  **  2 

C 

C  TBAHSPOBB  TO  a  UBPBIBED*  SISTEB 
C 

C  PIBSI  ROTATE 
C 

XDIST  =»  (XP*C03  (ALPHA)  ♦  IP*SIB  (ALPHA)  )  *  1000- 

C 

C  BOB  IBAHSLAT2 
C 

XDIST  *  XDIST  ♦  2PABB (1)  •  BPABB (3) 

HETUHB 

EHD 

C 

POBCTIOB  TDIST  (BLAT .  BLOB) 

COBHOH  /GPABB/  BPABB(23),  IPABB  (54)  ,  ZPAHB  (2) 

PI  =  AT  IB  2  (0.  ,-1.  ) 

ALPHA  =  BPABB  (7)  *  PI  /  180. 

DLAT  *  BLAT  -  BPABB  (1 ) 

DLOB  =  BP  ABB  (  2)  -  BLOB 
C 

C  PI HD  XPRIBE,  YPBIBE  -  DISTAHCES  PBOS  IHE  OBIGIB  OP  THE  SI  ABOARD 
C  BA  THIBE  TEIC  GRID 
C 

IP  =  BPABB(8)  *  DLOB  ♦  BPABB  (9)  •  DLAT  *  HPAfia(lO)  *  DLOB  *  DLAT  ♦ 

1  BPABa(ll)  •  DLOB  **  2 

IP  =  BPABB  (12)  •  DLOB  ♦  BPABB(13)  »  DL  AX  ♦  BPAHB(l4).  *  DLAT  * 

1  DLOB  ♦  BPABB  (15)  *  DLOB  »*  2 

C 

C  TBAHSPOBB  TO  ’OBPBIflED*  SISTEB 
C 

C  PIBST  BO TATE 
C 

XDIST  =  (YP»COS (ALPHA)  -  XP*SIM  (ALPHA) )  *  1000. 

C 

C  HOB  THANSLATE 
C 

IDIST  =  TDIST  ♦  ZP  ARB  (2)  *  BPABB  (3) 

•  BETOBH 

EHD 
C 

PUHCTIOH  BLAT ( X, 7) 

COSBOH  /SPARS/  BPARH(23),  IPABfl(54),  ZPA8B(2) 

PI  =  ATAH  2  ( 0.  ,  -  1.) 

ALPHA  =  BPABB  (7)  *  PI  /  180- 
C 
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TH1NSFQH 9  THE  POINTS  TO  THE  *  PBIflED'  CCCBDINAIZ  SISTEB, 

IE.,  THAT  OF  THE  STANDARD  BAXHIAETBIC  GBID 

FIRST  TEAS  SLATE 

XX  =  X  -  ZPAR8  (  1)  *  BPAHB(3) 

II  *  I  -  ZP  ABB (2)  *  BPABH  (3) 

HOB  ROTATE 

XP=(XX*COS (ALPHA)-II*SIH(ALPHA))/(1000.)  ' 

IP=(IT*C0S{  ALPHA)  »XX*SIH  (ALPHA)  )/(1000.) 

DLAT  -  B?A2a(20)  *  XP  ♦  BP  ABB  (2 1)  *  IP  *  RPARfl  ( 22)  •  IP  *,  TP  ♦ 
1  RP ABB  (23)  *  X?  ••  2 

SLAT  =  BPABH  (1)  ♦  OLAT 
BETOBH 
BHD 

SOBBOOTIHE  INIT  (D,  S,  IDIB,  TLiCQ,  RLXQ) 

DISENSION  S  (IDI3,  IDI3)  ,  D  (ID  LB, IDIB) 

COHBOH  /J  PASS/  BP  ABB  (23 )  ,  IPABB(54),  ZPARfl  (2) 

DATA  SPTAL  /I. 0S20/ 

OPES  (16  ,  FILE='laJteinit-psi,#  STATOS^OLD*) 

BEHIH3  16 
IB  *  IPAHH(I) 

Jfl  -  IP  ABB  (  2) 

BE  AD  (16  ,3  0  ,  EHD=  10)  {  (S  (I,J)  ,1=  1,Ifl)  ,J=1,JH) 

COBTEBT  CFS  TO  CBS 
DO  50  1=1  ,IS 
DO  50  J=1,JB 

IF  (5  (I ,  J)  .  EQ.  SPTAL)  GO  TO  50 
S(I,J)  =  S{I,J) /3.53198E*01 
50  CONTI  HOE 

CALL  PH  NT  [  6 ,  S,  IDIB',  IB,  JB,  SPTAL) 

OPDATE  STBEAB  FUNCTION  TO  CDBBBBT  TALDES 
IF  (TLKQ  .EQ.  RLKQ)  BETOBH 
ADDQ  *  (ILKQ-BLKQ)/(2.0D0*35.3198) 

DO  40  1=1, IB 
DO  40  J=1,JB 

IF  (S(I«  J)  .  EQ.  SPVAL)  GO  TO  40 
IF  (S(I,J)  .ST.  O.ODO)  5(I,J)  =  S  (I,  J)  ♦  ADDQ 
IF  (S(I,J)  .LT.  O.ODO)  S(I,J)  *  S(I,J)-ADDQ 
40  COHTI30E 

CALL  PBHT (6,  S,  IDIB,  IB,  JB,  SPTAL) 

BZTUSH 

HO  INITIAL  CONDITIO H  FILE,  SET  STBEABFU NCTIOH  TO  ZERO 

10  CONTI  HOE 

DO  20  I  =  1,  IB 
DO  20  J  =  1.  JB 
20  S(I,J)  =  0. 

30  POBflAT (6E 12.5) 

BETUBH 

BHD 

SUBROUTINE  OOTP (TI BE,  D.  S,  SPD,  IDIB) 

DIHEHSION  D { ID  IB, IDIB)  , S (IDIB , I  DIB)  , SPD (IDIB , IDIB) 

C0B30H  /GPAHB/  BP  AB  B  (23 )  ,  IPABfl(54),  ZPABH(2) 

DATA  IB  EC  /0/ 

IF  (TI BE  .LT.  0.)  BETOBH 
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ia=iPiBa(i) 

JS=I?Ailfl(2) 

c 

c  fihst  tide  through,  open  output  file 

c 

IF  (1 8 SC  .MS.  0)  SO  10  30 

OPEN  (11,  FILS2' stcea».4at' ,  STA I0S= • HZ U • ) 

C 

C  9 BITS  STBEA8  FUNCTION  FIELD 
C 

30  IBEC=XB  EC* 1 
DO  70  1=1 ,IH 
DO  70  J=  1, JS 

IF  (S(I,J)  .EQ.  1.0E*20)  50  TO  70 
S(I,J)  =  S(I,.J)  *  35.3198 
70  CONTI  SOB 
BEHIND  11 

NBITE  (11,40)  (  (S  (I,J)  ,1=1, IS)  ,  J=1,  Jfi) 

DO  80  1=1, IM 
DO  30  J=1,JH 

IF  (S  ( I,J)  .EQ.  1. OE*  20)  50  TO  60 

S(I,J)  =  S(I,J)  /  35.3198 
30  CONTINOZ 
<0  POBBA I (6E 12.5 1 
BBTOBN 
EBD 
C 

SUBROUTINE  COflPAHE  (T ,  D,  S,  SPD,  IDLE,  0,  7) 

C 

C  POHPOSE: 

C 

C  CHECKS  FOB  THE  FINAL  STEAD!  STATE  BESPONSE 

C  FOB  THE  GIVEN  INPUT  TO  BLID 

C 

C  ALGOHI7HIH: 

C 

C  UP  TO  10  GBID  BOIES  ABE  SELECTED  AT  8ANDGS  FBCS 

C  BXTHIN  THE  LAKE  GBID  STSTEH.  TBE  VALUES  FOB  5,  0,  V  AND/OH 

C  SPD  ABE  C03PABED  B2THEEU  THE  CUBHENT  TI BE  STEP  AND  THE 

C  TIBS  STEP  I BHEDI AT  ELI  PRECEDING.  THE  DIFFEHENCE  6 El VEEN 

C  VALUES  AT  THE  CONSECUTIVE  TIHS  STEPS  ABE  COHPABED  TO  A 

C  PB2 DETERMINED  TOLEBANCE.  IF  ALL  DIFFEBENCES  ABE  LKSS  THAN 

C  THE  TOLEBANCE,  THE  FINAL  STEAD  I  STATE  I2ANSPOBTS  ABE  PiLZXtBD 

C  OUT  ALONG  WITH  THE  COBPUTED  (PRECEDING  AND  CUBHENT)  3,  SPD, 

C  U,  AND/OB  V  DIFFEBENCES  FOB  THE  SELECTED  POINTS. 

C 

DIH2HSION  D(IDIB.I),  S(IDIH,1),  SPD  (IDIil,  1 )  ,  CDIF  (20)  ,  BBS  (2) 

S  ,PS(10),  PSPD(IO),  CS(10),  CSPD(IO)  ,  BDIF  120) 
c  e  ,u(iDia,i),  v(iDia,i) 

C  6  ,CU{10),  CV(10),  PU{10),  PV{10) 

COH.MON  /GPA3H/  UPAHB(23).  IPABa(54),  ZPABB{2) 

DATA  NIDIF,  TOL,  NTS1EPS  /10,  -01,  'i/ 

C 

C  FILE  TO  PLOT  BELATIVE  DIFFEBENCES  OPENED  IN  BLID.  F 
C 

C  CHECK  IF  FIRST  TIHE  STEP 
C 

8BITE{6,*)  T,DT 

C  if  (t  .It.  1710000.)  go  to  99 

IF  (T  -EQ.  OT)  GO  TO  99 
I H  =  IP  ABH  (1 ) 
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jh  *  ipabb  (2) 

c 

C  SET  CUHHEST  S  S  SPD  T, AREA I  CS  £  CSPD 
C  OB  CHARGE  TO  0  S  V  BITH  CO  6CV. 

C 

CS{1)  *  S  (4  , 7 ) 

CS{2)  *  S  {10,6) 

CS(3)  =  S  (IS,  12) 

CS  (4)  *  S  (  16, 22) 

CS  (S)  -  S  (12,28) 

CS  (6)  *  S  (22,  10) 

CS  (7)  *  S  (33,13) 

CS  (8)  -  S  (26,  26) 

CS(9)  *  S  <22,33 ) 

CS(IO)  -  S  (20,  19) 

CSPD  (1)  *  SPD  (4,7) 

CSPD(2)  *  SPD{  10,6) 

CSPD  (3)  =  SPD  (IS  ,  12) 

CSPD ( 4)  =  SPD (  1 6,  22) 

CSPD  (S)  =  SPD  (1 2,28) 

CSP D(6)  =  SPD  (  22,  10) 

CSPD  (7)  =  SPD  (33, 13) 

CSPD  (8)  *  SPD  (26,26) 

CSPD  (9)  *  SPD  (22,33) 

CSPD(IO)  *  SPD  (20,  19) 

C 

C  CALCULATE  DIFFERENCES 
C 

DO  10  I=1,3IDIF 

CDIP(I)  =  A3S  (PS  (I) -CS  (I)  ) 

CDXP(  T*8XDIF)  =*  A3S  (PSPD  (I)  —CSPD  (X)  ) 

10  COHXIMOE 
C 

C  CALCULATE  RELATIVE  DIFFERENCES 
C 

DO  15  I*1,HIDIF 

BDIF(I)  =  ABS(PS(X)-CS(I))/A8S(CS(I)) 

RDIF  (I*aiDIF)  *  ABS (PSPD (I)— CSPD (X))/ABS (CSPD(X)i 
15  COHTIHUE 
C 

C  CALCULATE  BOOT  SEAS  SQUIBB 
C 

HAS  ( 1)  =  0.  0D0 

aas(2)  -  o.odo 

DO  20  I=1,3IDXF 

BBS  (1  )  =  BHS(I)*- (CDIF(I)*CDIF(I)) 

BBS  (2)  =  HHS ( 2)  *(CDIF(I*HIDIF) *CDIF (I*  SIDI7)  ) 
20  COSTIHUE 

BBS  ( 1)  =  SQBT(BBS{1)  /FLOAT  (BIDIF) ) 

BBS  (2)  =  SQBT  (BBS  (2)/FLOAT  (BXDIF)) 

C 

c  couh:  this  tihe  step 
i  c 

JIT3TEPS  =  HTSTEPS*  1 
C 

C  BBXTE  SELECTED  POIHX  VALUES  ABD  DIFFEBEMCES 
C 

BBXTE  (6,100) 

BB  XT  E  (6,  105) 

DO  30  1=1  , BIDIF 

11  =  H-MIDIP 
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■  813(6,110)  I,  PS(X).  CS(1),  CD  IP  (I)  , 

6  XI,  PSPD(I),  CSPD(I).  COIF (II) 

B BITE  ( 3,  IIS)  NTSTEPS,  8DIP  (I) 

■BITE  (3,115)  STSTEPS,  BDIPJII) 

30  CONTINUE 

■BITS  (6, 120)  BBS  (1)  ,  BBS  (2) 

CHECK  TOLESAMCE 

■DIF  =  2*HIDIF 
J  =  0 

DO  50  1*1  , NDIP 

IF  (CD  IF  (I)  .GT.  TOL)  GO  TO  55 
GO  TO  50 
55  J  =  J»1 
50  CONTI B0E 

HAS  STEADY  STATE  BEEN  BEACHED?  IF  YES,  PBIMT 
STEADY  STATE  VALUES  AND  STOP- 

IP(J  -GT.  0)  GO  TO  60  , 

8BI  TE  (6 , 1 50 )  T 
HBITE(6,160) 

CALL  PB NT  (6 ,  3,  IDIB,  IB,  JB,  0.) 

BHITB  (6,  170) 

CALL  PB  NT  (6 ,  SPD,  IDIB,  IB,  JB,  0.) 

STOP 

60  CONTI  NOE 
8anE(6, 180) 

IF  BO,  BESET  PU  5  ?7  AND  PHOCEED  TO  BEIT  IlflE  STEP. 

99  CONT2N02 

PS(1)  *  S  (4  ,7) 

PS  (2)  *  S  (1  0,  6) 

PS  (3)  *  S  ( 1  5,  12) 

PS  (4 )  =  S  (16,22) 

PS  ( 5)  =  S  {  1 2,  23) 

PS(fc)  *  S  (22, 1 0 ) 

PS  (7)  *  S(33.  13) 

PS  (8)  *  S  (26,26) 

PS  (9)  =  3(22,33) 

PS(10J  =  S  (20,  1 9) 

PS  PD  {  1)  =  SPD(  4,  7) 

PSPD  (2)  =  SPD  (10,6) 

PSPD(3)  =  SP  D  ( 1 5,  12) 

PSPD  (4)  =  SPD (16,22) 

PS  PD  (  5)  =  S  PD  (  1 2,  2  8) 

PSPD (6 )  =  SPD  (22 , 10 ) 

PS  P  D  { 7)  =  S?D(33,13) 

PSPD  (8)  =  SPD (26,26) 

PSPD  (9)  =  SPD  (  22, 33) 

PSPD  (10)  =  SPD  (20 , 19) 

100  FOaaAT(1X,/75 (1H»)/14X, 'COBPABISON  CF  COBPOTED  ’, 

6’ TRANSPORTS’/? OX, 2 OH TO  FIND  STEADY  STATE/) 
i  105  FORB AT ( 1 X ,2 (5X ,30  HI  PREVIOUS  CUBRENT  DLF)/12X, 

615HS  S, 2  OX,  1  7HSPD  SPD) 

110  FOB3AI(3X,2X,I2,F10. 3,2X,F10.3,  1X,F8.4, 
63X,I2,2X,F0.4,4X,F8.4,3X,F7.4) 

115  FORB AT( IX, 13, 212. 5) 
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120  FOBBAT(75  {1H*} /2X,2(20X,'B3S  *  *,P8. 4) /75  <1H*) /) 

130  POBBAT  (IX, 75  (13*)  ) 

140  FOBS AT ( IX , 32HTOL  EBAHCE  ROT  SATISFIED  AT  OIF  *  ,12) 

150  FOBBAT (IX ,22HSXEADI  STATE  SATISFIED,'  TIRE  »  ',P1J.U) 
160  POBBAT (  IX  ,  *  PLOT  OF  S') 

170  FOBBAZ(1X,'PLOT  OF  SPD') 

180  FOBBAT(1X,*  STEAD!  STATE  BAS  HOT  1ST  BEER  BEACHED') 

190  FOBflAI (1 X ,  '  J  *  * ,12) 

BETOBH 

EHD 
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